|
| |
|
|
A116567
|
|
a(n) = +1476*a(n-6) +46656*a(n-12).
|
|
0
|
|
|
|
0, 1, 2, 2, 40, 228, 228, 1440, 4248, 4248, 60336, 336528, 336528, 2172096, 6363360, 6363360, 90922176, 507352896, 507352896, 3273198336, 9590514048, 9590514048, 137016168192, 764553924864, 764553924864, 4932582054912, 14452487659008
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
Table of n, a(n) for n=0..26.
Index to sequences with linear recurrences with constant coefficients, signature (0,0,0,0,0,1476,0,0,0,0,0,46656).
|
|
|
FORMULA
|
G.f.: -x*(1296*x^9 +1296*x^8 +1296*x^7 -36*x^6 +228*x^5 +228*x^4 +40*x^3 +2*x^2 +2*x +1) / (46656*x^12 +1476*x^6 -1). - Colin Barker, Mar 11 2013
|
|
|
MATHEMATICA
|
M1 = {{1, 0}, {0, 6}}; M2 = {{0, 1}, {6, 1}}; M3 = {{1, 1}, {6, 0}}; M4 = {{1, 0}, {1, 6}}; M5 = {{1, 1}, {0, 6}}; M6 = {{0, 1}, {6, 0}}; M[n_] = If[Mod[n, 6] == 0, M1, If[Mod[n, 6] == 1, M2, If[Mod[n, 6] == 2, M3, If[Mod[n, 6] == 3, M4, If[Mod[n, 6] == 4, M5, M6]]]]]; v[0] = {0, 1}; v[n_] := v[n] = M[n].v[n - 1] a = Table[v[n][[1]], {n, 0, 36}]
|
|
|
PROG
|
(MAGMA) m:=30; R<x>:=PowerSeriesRing(Integers(), m); [0] cat Coefficients(R!(-(1296*x^9+1296*x^8+1296*x^7-36*x^6+228*x^5+228*x^4+40*x^3+2*x^2 +2*x+1)/(46656*x^12+1476*x^6-1))); // Bruno Berselli, Mar 12 2013
|
|
|
CROSSREFS
|
Sequence in context: A202711 A222668 A210246 * A215049 A087541 A153434
Adjacent sequences: A116564 A116565 A116566 * A116568 A116569 A116570
|
|
|
KEYWORD
|
nonn,easy,less
|
|
|
AUTHOR
|
Roger L. Bagula, Mar 18 2006
|
|
|
EXTENSIONS
|
New name and overall edit, Colin Barker and Joerg Arndt, Mar 11 2013
|
|
|
STATUS
|
approved
|
| |
|
|
