|
| |
|
|
A121963
|
|
Modulo 3 quadratic 2 X 2 matrix Markov of the A001503 type.
|
|
0
| |
|
|
0, 1, 2, 7, 23, 53, 182, 599, 1380, 4739, 15597, 35933, 123396, 406121, 935638, 3213035, 10574743, 24362521, 83662306, 275349439, 634361184, 2178432991, 7169660157, 16517753305, 56722920072, 186686513521, 430095947114
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
FORMULA
| M[n_] := {{0, 1}, {1, 1 + Mod[n^2 - n - 1, 3]} } v[1] = {0, 1} v[n_] := v[n] = M[n].v[n - 1] a(n) = v[n][[1]]
|
|
|
MATHEMATICA
| M[n_] := {{0, 1}, {1, 1 + Mod[n^2 - n - 1, 3]} } v[1] = {0, 1} v[n_] := v[n] = M[n].v[n - 1] a = Table[v[n][[1]], {n, 1, 30}]
|
|
|
CROSSREFS
| Cf. A001053.
Sequence in context: A049002 A195629 A011757 * A041159 A034546 A010748
Adjacent sequences: A121960 A121961 A121962 * A121964 A121965 A121966
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 02 2006
|
| |
|
|
