|
|
A124150
|
|
Numbers n for which 1+n+n^3+n^5+n^7 is prime.
|
|
2
|
|
|
1, 4, 15, 34, 39, 45, 55, 60, 103, 117, 123, 127, 129, 142, 172, 183, 190, 214, 222, 223, 234, 243, 265, 294, 337, 343, 354, 357, 472, 484, 495, 502, 510, 514, 520, 525, 552, 562, 600, 625, 628, 640, 652, 660, 663, 685, 748, 754, 775, 865, 885, 975, 979
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[If[PrimeQ[1 + n + n^3 + n^5 + n^7], Print[n]], {n, 1, 1000}]
Select[Range[1000], PrimeQ[1+#+#^3+#^5+#^7]&] (* Harvey P. Dale, Jul 16 2013 *)
Select[Range[1000], PrimeQ[Total[#^Range[1, 7, 2]] + 1] &] (* Vincenzo Librandi, Jun 27 2014 *)
|
|
PROG
|
(Magma) [n: n in [0..900] | IsPrime(s) where s is 1+&+[n^i: i in [1..7 by 2]]]; // Vincenzo Librandi, Jun 27 2014
|
|
CROSSREFS
|
Cf. similar sequences listed in A244376.
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|