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, 6, 39, 84, 543, 3510, 7563, 48888, 316017, 680922, 4401549, 28452060, 61305669, 396286074, 2561633451, 5519552976, 35678951307, 230632366770, 496943684847, 3212294475852, 20764597909653, 44741490295158

Offset

0,3

Links

Table of n, a(n) for n=0..22.

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

Adjacent sequences: A116948 A116949 A116950 * A116952 A116953 A116954

Keyword

nonn

Author

Roger L. Bagula, Apr 03 2006

Extensions

Edited by N. J. A. Sloane, May 04 2006

Status

approved