OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..653
Index entries for linear recurrences with constant coefficients, signature (29,174,-174,-29,1).
FORMULA
G.f.: -x*(x^4 + 52*x^3 - 122*x^2 - 28*x + 1) / ((x-1)*(x^2 - 34*x + 1)*(x^2 + 6*x + 1)). - Colin Barker, Jan 04 2013
MAPLE
seq(coeff(series(-x*(x^4+52*x^3-122*x^2-28*x+1)/((x-1)*(x^2-34*x+1)*(x^2+6*x+1)), x, n+1), x, n), n = 1 .. 20); # Muniru A Asiru, Oct 13 2018
MATHEMATICA
LinearRecurrence[{29, 174, -174, -29, 1}, {1, 1, 81, 2401, 83521}, 20] (* Harvey P. Dale, Jun 01 2018 *)
PROG
(PARI) x='x+O('x^30); Vec(-x*(x^4+52*x^3-122*x^2-28*x+1)/((x-1)*(x^2-34*x+1)*(x^2+6*x+1))) \\ G. C. Greubel, Oct 12 2018
(Magma) m:=30; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(-x*(x^4+52*x^3-122*x^2-28*x+1)/((x-1)*(x^2-34*x+1)*(x^2+6*x+1)))); // G. C. Greubel, Oct 12 2018
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Roger L. Bagula and Gary W. Adamson, Oct 05 2006
EXTENSIONS
New name from Colin Barker, Jan 04 2013
Edited by Joerg Arndt, Oct 13 2018
STATUS
approved