This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 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:=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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .