|
|
A062039
|
|
a(0) = 1; a(n+1) = a(n) - n if a(n) > n, otherwise a(n+1) = a(n) + a(a(n)).
|
|
12
|
|
|
1, 1, 2, 4, 1, 2, 4, 5, 7, 12, 3, 7, 12, 24, 11, 18, 3, 7, 12, 24, 5, 7, 12, 24, 1, 2, 4, 5, 7, 12, 24, 25, 27, 32, 59, 25, 27, 32, 59, 21, 28, 35, 60, 18, 30, 54, 9, 21, 28, 35, 60, 10, 13, 37, 69, 15, 33, 65, 8, 15, 33, 65, 4, 5, 7, 12, 24, 25, 27, 32, 59, 74, 3, 7, 12, 24, 25, 27
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
a[0] = 1; a[n_] := a[n] = If[a[n-1] > n-1, a[n-1] - (n-1), a[n-1] + a[a[n-1]]]; Table[a[n], {n, 0, 77}] (* Jean-François Alcover, Mar 20 2011 *)
|
|
PROG
|
(Haskell)
a062039 n = a062039_list !! n
a062039_list = 1 : f 1 0 where
f x n | x > n = (x-n) : f (x-n) (n+1)
| otherwise = x' : f x' (n+1) where x' = x + a062039 x
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nice,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|