login
A122577
A nonsense sequence.
0
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
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
KEYWORD
nonn,uned,less
AUTHOR
Roger L. Bagula, Sep 17 2006
STATUS
approved