|
| |
|
|
A122264
|
|
2 X 2 vector matrix Markov of a Prime gap affine type.
|
|
0
| |
|
|
2, 7, 12, 25, 30, 43, 48, 61, 82, 87, 108, 121, 126, 139, 160, 181, 186, 207, 220, 225, 246, 259, 280, 309, 322, 327, 340, 345, 358, 411, 424, 445, 450, 487, 492, 513, 534, 547, 568, 589, 594, 631, 636, 649, 654, 699, 744, 757, 762, 775
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| M = {{0, 1}, {-1, 2}}; v[1] = {2, 3}; v[n_] := v[n] = M.v[n - 1] + 2*{Prime[n + 1] - Prime[n], Prime[n + 2] - Prime[n + 1]}; a(n) = v[n][[n]]
|
|
|
MATHEMATICA
| M = {{0, 1}, {-1, 2}}; v[1] = {2, 3}; v[n_] := v[n] = M.v[n - 1] + 2*{Prime[n + 1] - Prime[n], Prime[n + 2] - Prime[n + 1]}; a = Table[v[n][[1]], {n, 1, 50}]
|
|
|
CROSSREFS
| Sequence in context: A119713 A135541 A180804 * A079824 A059329 A177747
Adjacent sequences: A122261 A122262 A122263 * A122265 A122266 A122267
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 18 2006
|
| |
|
|
