login
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
0, 1, 6, 39, 84, 543, 3510, 7563, 48888, 316017, 680922, 4401549, 28452060, 61305669, 396286074, 2561633451, 5519552976, 35678951307, 230632366770, 496943684847, 3212294475852, 20764597909653, 44741490295158
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: A355412 A058897 A058985 * A163737 A354728 A220855
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Apr 03 2006
EXTENSIONS
Edited by N. J. A. Sloane, May 04 2006
STATUS
approved