OFFSET
0,3
COMMENTS
LINKS
R. Zumkeller, Table of n, a(n) for n = 0..10000
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
-- Reinhard Zumkeller, Aug 10 2011
CROSSREFS
KEYWORD
easy,nice,nonn
AUTHOR
Reinhard Zumkeller, Jul 12 2001
STATUS
approved