A134679 a(1) = ... = a(6) = 1; a(n)=a(n-a(n-1))+a(n-a(n-6)).

1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 7, 8, 8, 9, 9, 10, 11, 11, 12, 12, 14, 13, 15, 14, 15, 16, 15, 17, 17, 18, 18, 19, 20, 20, 20, 21, 22, 22, 23, 23, 25, 25, 25, 25, 25, 29, 24, 29, 26, 29, 29, 30, 32, 28, 32, 29, 34, 31, 32, 36, 32, 38, 32, 39, 36, 36, 38, 36, 42, 35, 41, 39, 40

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

Cf. A132172.

Sequence in context: A060207 A195932 A327707 * A100721 A337979 A265359

Adjacent sequences: A134676 A134677 A134678 * A134680 A134681 A134682

Keyword

nonn,fini

Author

T. D. Noe, Nov 06 2007

Status

approved