A105245 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, 1, 1, 2, 1, 2, 4, 2, 4, 7, 1, 1, 2, 1, 2, 4, 0, 1, 1, 1, 1, 2, 1, 2, 4, 2, 4, 7, 1, 1, 2, 1, 2, 4, 0, 1, 1, 1, 1, 2, 1, 2, 4, 0, 1, 1, 1, 1, 2, 1, 2, 4, 2, 4, 7, 1, 1, 2, 1, 2, 4, 0, 1, 1, 1, 1, 2, 1, 2, 4, 0, 1, 1, 1, 1, 2, 1, 2, 4

Offset

1,6

Links

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

Mathematica

v[1] = {{0, 1, 1}, {1, 1, 2}, {1, 2, 4}}
M1 = {{0, 1, 0}, {0, 0, 1}, {1, 0, 0}}
M2 = {{0, 1, 0}, {0, 0, 1}, {1, 1, 1}}
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: A097864 A097866 A097865 * A105246 A328027 A193829

Adjacent sequences: A105242 A105243 A105244 * A105246 A105247 A105248

Keyword

nonn,uned,obsc,less

Author

Roger L. Bagula, Apr 13 2005

Status

approved