A105246 A nonsense sequence.

0, 1, 1, 1, 1, 2, 1, 2, 4, 1, 1, 2, 1, 2, 4, 0, 1, 1, 1, 1, 2, 1, 2, 4, 0, 1, 1, 2, 4, 7, 1, 2, 4, 1, 1, 2, 1, 1, 2, 1, 2, 4, 0, 1, 1, 2, 4, 7, 1, 2, 4, 1, 1, 2, 1, 1, 2, 1, 2, 4, 0, 1, 1, 1, 1, 2, 1, 2, 4, 0, 1, 1, 2, 4, 7, 1, 2, 4, 1, 1, 2, 1, 1, 2, 1, 2, 4, 0, 1, 1, 4, 6, 11, 3, 6, 12, 1, 3, 4, 2, 4, 7, 1, 2

Offset

1,6

Links

Table of n, a(n) for n=1..104.

Mathematica

v[1] = {{0, 1, 1}, {1, 1, 2}, {1, 2, 4}}
M1 = {{0, 1, 0}, {0, 0, 1}, {1, 0, 0}}
M2 = {{1, 1, 1}, {0, 0, 1}, {0, 1, 0}}
M = {M1, M1, M2}
v[n_] := v[n] = M.v[n - 1]
a = Table[v[n], {n, 1, 4}]
aa = Flatten[a]

Crossrefs

Sequence in context: A097866 A097865 A105245 * A328027 A193829 A337714

Adjacent sequences: A105243 A105244 A105245 * A105247 A105248 A105249

Keyword

nonn,uned,obsc,less

Author

Roger L. Bagula, Apr 13 2005

Status

approved