|
%I #5 Mar 30 2012 17:34:20
%S 0,1,6,39,84,543,3510,7563,48888,316017,680922,4401549,28452060,
%T 61305669,396286074,2561633451,5519552976,35678951307,230632366770,
%U 496943684847,3212294475852,20764597909653,44741490295158
%N 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]
%t 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}]
%K nonn
%O 0,3
%A _Roger L. Bagula_, Apr 03 2006
%E Edited by _N. J. A. Sloane_, May 04 2006
|
