|
| |
|
|
A124205
|
|
Numbers n such that 1 + n + n^3 + n^5 + n^7 + n^9 + n^11 + n^13 + n^15 + n^17 + n^19 + n^21 + n^23 + n^25 + n^27 + n^29 + n^31 + n^33 + n^35 + n^37 + n^39 + n^41 + n^43 + n^45 + n^47 is prime.
|
|
3
| |
|
|
12, 18, 39, 75, 82, 92, 133, 152, 273, 428, 568, 617, 749, 922, 949, 975, 1020, 1033, 1058, 1088, 1113, 1207, 1253, 1329, 1372, 1389, 1762, 1784, 1882, 1943, 1950, 1962, 1969, 2372
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Do[If[PrimeQ[1 + n + n^3 + n^5 + n^7 + n^9 + n^11 + n^13 + n^15 + n^17 + n^19 + n^21 + n^23 + n^25 + n^27 + n^29 + n^31 + n^33 + n^35 + n^37 + n^39 + n^41 + n^43 + n^45 + n^47], Print[n]], {n, 1, 2400}] (* From Artur Jasinski *)
Select[Range[2500], PrimeQ[Total[#^Range[1, 47, 2]] + 1] &] (* From Harvey P. Dale, Jan 13 2011 *)
|
|
|
CROSSREFS
| Cf. A049407.
Sequence in context: A079479 A162694 A197464 * A133403 A152615 A119147
Adjacent sequences: A124202 A124203 A124204 * A124206 A124207 A124208
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Dec 13 2006
|
| |
|
|
