OFFSET
1,2
COMMENTS
Companion sequence to A174685.
LINKS
Ray Chandler, Table of n, a(n) for n = 1..653 (terms to 1000 digits)
Index entries for linear recurrences with constant coefficients, signature (1,1154,-1154,-1,1).
FORMULA
G.f.: x*(1 + 105*x - 915*x^2 + 615*x^3 + 2*x^4)/((1 - x)*(1 - 34*x + x^2)*(1 + 34*x + x^2)). [Bruno Berselli, Aug 05 2015]
MATHEMATICA
LinearRecurrence[{1, 1154, -1154, -1, 1}, {1, 106, 345, 122130, 397937}, 20] (* Vincenzo Librandi, Aug 05 2015 *)
PROG
See A174685 for PARI program attributed to Jack Brennen.
(Magma) I:=[1, 106, 345, 122130, 397937]; [n le 5 select I[n] else Self(n-1)+1154*Self(n-2)-1154*Self(n-3)-Self(n-4)+Self(n-5): n in [1..30]]; // Vincenzo Librandi, Aug 05 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ray Chandler, Aug 04 2015
STATUS
approved