|
|
A124163
|
|
Numbers n such that 1 + n + n^3 + n^5 + n^7 + n^9 is prime.
|
|
5
|
|
|
2, 12, 14, 18, 48, 62, 80, 86, 116, 120, 138, 212, 230, 264, 272, 362, 368, 386, 392, 422, 440, 450, 456, 468, 480, 492, 510, 518, 528, 534, 548, 558, 620, 632, 678, 710, 744, 770, 780, 834, 884, 900, 918, 960, 1022, 1032, 1074, 1080, 1146, 1170, 1178, 1212, 1232, 1242, 1260, 1308, 1382, 1440, 1470, 1482, 1524
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[If[PrimeQ[1 + n + n^3 + n^5 + n^7 + n^9], Print[n]], {n, 1, 300}]
Select[Range[2000], PrimeQ[Total[#^Range[1, 9, 2]] + 1] &] (* Vincenzo Librandi, Jun 27 2014 *)
|
|
PROG
|
(Magma) [n: n in [0..1500]| IsPrime(1 + n + n^3 + n^5 + n^7+ n^9 )]; // Vincenzo Librandi, Nov 13 2010
(Magma) [n: n in [0..1200] | IsPrime(s) where s is 1+&+[n^i: i in [1..9 by 2]]]; // Vincenzo Librandi, Jun 27 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|