A124150 Numbers n for which 1+n+n^3+n^5+n^7 is prime.

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

Offset: 1

Author

Artur Jasinski, Dec 13 2006

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. similar sequences listed in A244376.

Programs

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

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 *)