login
A107413
a(n) = 7*a(n-1)-6*a(n-3)+a(n-5).
0
0, 1, 1, 2, 3, 15, 94, 641, 4399, 30232, 207793, 1428251, 9817006, 67476683, 463797507, 3187888306, 21911786295, 150609536029, 1035206899050, 7115441373087, 48907620283741, 336164012378182, 2310606047944781
OFFSET
0,4
FORMULA
G.f.: (x(-1+x(6+5x(1+x))))/(-1+7x-6x^3+x^5) [From Harvey P. Dale, May 11 2011]
MATHEMATICA
m = 6 a[0] = 0; a[1] = 1; a[2] = 1; a[3] = 2; a[4] = 3 a[n_] := a[n] = a[n - 5] - m*a[n - 3] + (m + 1)*a[n - 1] digits = 50 aa = Table[a[n], {n, 0, digits}]
LinearRecurrence[{7, 0, -6, 0, 1}, {0, 1, 1, 2, 3}, 30] (* or *) CoefficientList[ Series[(x (-1+x (6+5 x (1+x))))/(-1+7 x-6 x^3+x^5), {x, 0, 30}], x] (* Harvey P. Dale, May 11 2011 *)
CROSSREFS
Sequence in context: A027519 A245107 A177012 * A358119 A238711 A362999
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 25 2005
STATUS
approved