|
Search: id:A118485
|
|
|
| A118485 |
|
A prime generating polynomial made using a 3 X 3 Markov as Prime "data": 11321 - 23479 x + 16423 x^2 - 4693 x^3 + 471 x^4. |
|
+0
1
|
|
| 43, 47, 131, 397, 12251, 58403, 172867, 400961, 799307, 1435831, 2389763, 3751637, 5623291, 8117867, 11359811, 15484873, 20640107, 26983871, 34685827, 43926941, 54899483, 67807027, 82864451, 100297937, 120344971, 143254343, 169286147
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
FORMULA
|
a(n) = 11321 - 23479 n + 16423 n^2 - 4693 n^3 + 471 n^4
|
|
MATHEMATICA
|
M = {{0, 1, 0}, {0, 0, 1}, {1, 0, 1}}; v[0] = {41, 43, 47}; v[n_] := v[n] = M.v[n - 1] a = Flatten[Table[If[PrimeQ[Abs[v[n][[1]]]], Abs[v[n][[1]]], {}], {n, 1, 20}]] f[x_] = Expand[InterpolatingPolynomial[a, x]] aout = Table[f[n], {n, 1, 40}]
|
|
CROSSREFS
|
Cf. A001608, A000931.
Sequence in context: A140755 A095479 A033230 this_sequence A128653 A080104 A095744
Adjacent sequences: A118482 A118483 A118484 this_sequence A118486 A118487 A118488
|
|
KEYWORD
|
nonn,uned,obsc
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 05 2006
|
|
|
Search completed in 0.002 seconds
|
