OFFSET
1,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
PROG
(Haskell)
a053092 n = f 1 where
f x = case x `kara` n of
Nothing -> f $ 2 * x
Just y -> y
kara a b = if null ks then Nothing else Just $ head ks
where ks = [c | c <- [1..a], a <= c * b, a > c * (b - 1)]
-- Reinhard Zumkeller, Mar 30 2013
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Robert Lozyniak (11(AT)onna.com), Feb 27 2000
STATUS
approved