OFFSET
1,7
COMMENTS
The sequence dies after 2354 terms. - N. J. A. Sloane, Apr 15 2014
LINKS
T. D. Noe, Table of n, a(n) for n = 1..2354 (complete sequence)
MATHEMATICA
Clear[a]; a[n_] := a[n] = If[n<=6, 1, a[n-a[n-1]]+a[n-a[n-6]]]; t={1}; n=2; While[n<10000 && a[n-1]<n, AppendTo[t, a[n]]; n++ ]; t
CROSSREFS
KEYWORD
nonn,fini
AUTHOR
T. D. Noe, Nov 06 2007
STATUS
approved