|
Search: id:A127491
|
|
|
| A127491 |
|
Primes coefficients divided by 2 by x^2 of polynomials order 5 where zeros of this polynoamial are consecutive primes (primes in A127489). |
|
+0
3
|
|
| 1433, 147647, 890597, 38595511, 148255097, 155651927, 178689883, 1834248947, 2688277693, 3061266049, 3222213119, 4108958219, 11401307653, 12295495357, 13294330523, 15208874143, 15428448713, 19210697843, 19866864247
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
MATHEMATICA
|
a = {}; Do[If[PrimeQ[(Prime[x] Prime[x + 1]Prime[x + 2] + Prime[x] Prime[x + 2]Prime[x + 3] + Prime[x] Prime[x + 3]Prime[x + 4] + Prime[x + 1] Prime[x + 2]Prime[x + 3] + Prime[x + 1] Prime[x + 3]Prime[x + 4] + Prime[x + 2] Prime[x + 3] Prime[x + 4])/2], AppendTo[a, (Prime[x] Prime[x + 1]Prime[x + 2] + Prime[x] Prime[x + 2]Prime[x + 3] + Prime[x] Prime[x + 3]Prime[x + 4] + Prime[x + 1] Prime[x + 2]Prime[x + 3] + Prime[x + 1] Prime[x + 3]Prime[x + 4] + Prime[x + 2] Prime[x + 3] Prime[x + 4])/2]], {x, 1, 1000}]; a
|
|
CROSSREFS
|
Cf. A001043, A034961, A034963, A034964, A127333, A127334, A127335, A127336, A127337, A127338, A127339, A127340, A127341, A127342, A127343, A127345, A127346, A127347, A127348, A127349, A127351, A127352, A034962, A034965, A082246, A082251, A070934, A006094, A046301, A046302, A046303, A046324, A046325, A046326, A046327, A127489, A127490.
Sequence in context: A147695 A151996 A114083 this_sequence A143475 A101798 A081426
Adjacent sequences: A127488 A127489 A127490 this_sequence A127492 A127493 A127494
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 16 2007
|
|
|
Search completed in 0.003 seconds
|
