A122577 A nonsense sequence.

1, 1, 7, 10, 1, 169, 21, 2, 1801, 144, 1, 39202, 521, 1, 275807, 3194, 1, 6625109, 6765, 2, 70602821, 46368, 1, 1536796802, 167761, 1, 10812186007, 1028458, 1, 259717522849, 2178309, 2, 2767771787041, 14930352, 1, 60245508192802

Offset

1,3

Links

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

Mathematica

a[1] = {2, 2}; a[2] = {2, 1}; a[3] = {1, 2}; a[4] = {1, 1};
M[n_] := If[Mod[n, 3] == 0, {{ 0, 1}, {1, 2}}, If[Mod[n, 3] == 1, {{0, 1}, {1, 1}}, {{0, 1}, {1, 0}}]]
v[n_] := v[n] = MatrixPower[M[n], n].a[1 + Mod[n, 4]]
a1 = Table[v[n][[1]], {n, 1, 50}]

Crossrefs

Sequence in context: A027723 A046265 A082705 * A180732 A266551 A070405

Adjacent sequences: A122574 A122575 A122576 * A122578 A122579 A122580

Keyword

nonn,uned,less

Author

Roger L. Bagula, Sep 17 2006

Status

approved