|
|
A127194
|
|
A 10th-order Fibonacci sequence.
|
|
9
|
|
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 19, 37, 73, 145, 289, 577, 1153, 2305, 4609, 9217, 18424, 36829, 73621, 147169, 294193, 588097, 1175617, 2350081, 4697857, 9391105, 18772993, 37527562, 75018295, 149962969, 299778769, 599263345, 1197938593
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,11
|
|
COMMENTS
|
10th-order Fibonacci constant = 1.999018633...
|
|
LINKS
|
Index entries for linear recurrences with constant coefficients, signature (1,1,1,1,1,1,1,1,1,1).
|
|
FORMULA
|
O.g.f.: x*(-1+x^2+2*x^3+3*x^4+4*x^5+5*x^6+6*x^7+7*x^8+8*x^9) / (-1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9+x^10). - R. J. Mathar, Nov 23 2007
|
|
MATHEMATICA
|
With[{t=Table[1, {10}]}, LinearRecurrence[t, t, 40]] (* Harvey P. Dale, Nov 12 2013 *)
|
|
PROG
|
(PARI) a(n)=([0, 1, 0, 0, 0, 0, 0, 0, 0, 0; 0, 0, 1, 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 1, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 1, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 1, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 1, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0, 1, 0, 0; 0, 0, 0, 0, 0, 0, 0, 0, 1, 0; 0, 0, 0, 0, 0, 0, 0, 0, 0, 1; 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]^(n-1)*[1; 1; 1; 1; 1; 1; 1; 1; 1; 1])[1, 1] \\ Charles R Greathouse IV, Jun 15 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nice,nonn,easy
|
|
AUTHOR
|
Luis A Restrepo (luisiii(AT)hotmail.com), Jan 11 2007
|
|
STATUS
|
approved
|
|
|
|