|
| |
|
|
A015464
|
|
q-Fibonacci numbers for q=7.
|
|
1
|
|
|
|
0, 1, 1, 8, 57, 2801, 139658, 47216065, 16477840107, 38900937658402, 95030370064332109, 1569888180568718888123, 26845297334664927227358264, 3104208728255475471662060331653, 371576574614065326331102018605110717
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,4
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 0..70
|
|
|
FORMULA
|
a(n) = a(n-1) + 7^(n-2) a(n-2).
|
|
|
MATHEMATICA
|
Join[{0}, RecurrenceTable[{a[1]==1, a[2]==1, a[n]==a[n-1]+7^(n-2)a[n-2]}, a[n], {n, 20}]] (* From Harvey P. Dale, May 14 2011 *)
RecurrenceTable[{a[0]==0, a[1]==1, a[n]==a[n-1]+a[n-2]*7^(n-2)}, a, {n, 25}] (* Vincenzo Librandi, Nov 09 2012 *)
|
|
|
PROG
|
(MAGMA) [0] cat[n le 2 select 1 else Self(n-1) + Self(n-2)*(7^(n-2)): n in [1..15]]; // Vincenzo Librandi, Nov 09 2012
|
|
|
CROSSREFS
|
Sequence in context: A199555 A208596 A002402 * A144781 A026948 A111585
Adjacent sequences: A015461 A015462 A015463 * A015465 A015466 A015467
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
Olivier Gérard
|
|
|
STATUS
|
approved
|
| |
|
|
