1,7

The sequence dies after 2354 terms. - N. J. A. Sloane, Apr 15 2014

T. D. Noe, Table of n, a(n) for n = 1..2354 (complete sequence)

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

Cf. A132172.

Sequence in context: A060207 A195932 A327707 * A100721 A265359 A271490

Adjacent sequences: A134676 A134677 A134678 * A134680 A134681 A134682

nonn,fini

T. D. Noe, Nov 06 2007

approved