OFFSET
1,12
MATHEMATICA
v[1] = {{0, 1}, {1, 1}}
M = {{{0, 1}, {1, 0}}, {{0, 1}, {1, 1}}}
v[n_] := v[n] = M.v[n - 1]
a = Table[v[n], {n, 1, 6}]
aa = Flatten[a]
Length[aa]
CROSSREFS
KEYWORD
nonn,uned,obsc,less
AUTHOR
Roger L. Bagula, Apr 12 2005
STATUS
approved