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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Apr 03 2006
EXTENSIONS
Edited by N. J. A. Sloane, May 04 2006
STATUS
approved