OFFSET
0,8
LINKS
Index entries for linear recurrences with constant coefficients, signature (0, 1, 1, 1, 1, 2, 1).
MATHEMATICA
F[1] = 1; F[2] = 1; F[3] = 1; F[4] = 1; F[5] = 1; F[6] = 1; F[7] = 1; F[n__] := F[n] = F[n - 2] + F[n - 3] + F[n - 4] + F[n - 5] + 2*F[n - 6] + F[n - 7] aa = Table[F[n], {n, 1, 50}]
LinearRecurrence[{0, 1, 1, 1, 1, 2, 1}, {1, 1, 1, 1, 1, 1, 1}, 50] (* Harvey P. Dale, Dec 22 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jun 20 2005
STATUS
approved