login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A121804 1045*6^n/27-513*2^(n-2)-2072*3^(n-3)+670*(-1)^n*3^(n-3)+254*(-1)^(n+1), n>1. 0
0, 159, 4846, 43648, 272432, 1759444, 10596296, 64633588, 387979832, 2337067204, 14023337096, 84221417428, 505334268632, 3032732926564, 18196438915496, 109185158327668, 655111280131832, 3930726320267524, 23584360724983496 (list; graph; refs; listen; history; internal format)
OFFSET

1,2

COMMENTS

Unique structure in that all the secular roots are Integers.

FORMULA

a(n)= 7*a(n-1) +5*a(n-2) -75*a(n-3) +36*a(n-4) +108*a(n-5), n>6. [Oct 14 2009]

G.f.: x^2*(-159-3733*x-8931*x^2+45409*x^3+8094*x^4)/( (6*x-1)*(3*x-1) * (2*x-1) * (3*x+1) * (1+x)). [Oct 14 2009]

MATHEMATICA

M = {{0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0}, {1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0}, {1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0}, {0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0}, {0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1}, {0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1}, {0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0}}; v[1] = Table[Fibonacci[n], {n, 0, 17}] v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, 50}]

CROSSREFS

Sequence in context: A093472 A090948 A121800 * A205164 A013454 A013455

Adjacent sequences:  A121801 A121802 A121803 * A121805 A121806 A121807

KEYWORD

nonn

AUTHOR

Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 28 2006

EXTENSIONS

Definition replaced by formula - The Assoc. Editors of the OEIS, Oct 14 2009

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 .

Last modified February 16 12:15 EST 2012. Contains 205909 sequences.