|
Search: id:A116951
|
|
|
| A116951 |
|
Let M = {{0, 1}, {1/3, 2}}; w[1] = {0, 1}; w[n] = M.w[n - 1]; then a(n) = w[n][[1]]*3^Floor[2*(n - 1)/3] |
|
+0
1
|
|
| 0, 1, 6, 39, 84, 543, 3510, 7563, 48888, 316017, 680922, 4401549, 28452060, 61305669, 396286074, 2561633451, 5519552976, 35678951307, 230632366770, 496943684847, 3212294475852, 20764597909653, 44741490295158
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
MATHEMATICA
|
M = {{0, 1}, {1/3, 2}}; w[1] = {0, 1}; w[n_] := w[n] = M.w[n - 1]; a0 = Table[w[n][[1]]*3^Floor[2*(n - 1)/3], {n, 1, 25}]
|
|
CROSSREFS
|
Sequence in context: A080298 A058897 A058985 this_sequence A163737 A164081 A164082
Adjacent sequences: A116948 A116949 A116950 this_sequence A116952 A116953 A116954
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 03 2006
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), May 04 2006
|
|
|
Search completed in 0.002 seconds
|
