|
|
|
|
1, 1, 3, 1, 7, 3, 5, 1, 15, 7, 3, 11, 5, 19, 9, 1, 31, 15, 7, 13, 25, 3, 23, 11, 21, 5, 19, 37, 9, 35, 17, 1, 63, 31, 15, 29, 7, 27, 53, 13, 25, 49, 3, 47, 23, 45, 11, 43, 21, 41
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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)]
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
Robert Lozyniak (11(AT)onna.com), Feb 27 2000
|
|
STATUS
|
approved
|
|
|
|