|
|
A126907
|
|
Numbers n such that 1 + n^2 + n^4 + n^5 is prime.
|
|
1
|
|
|
2, 4, 6, 8, 12, 18, 32, 34, 68, 70, 78, 88, 110, 114, 116, 118, 120, 122, 132, 134, 142, 150, 172, 180, 186, 190, 210, 216, 238, 246, 254, 272, 294, 322, 362, 376, 380, 386, 388, 408, 476, 500, 502, 506, 508, 520, 530, 542, 564, 584, 588, 590, 616, 620, 632
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[If[PrimeQ[1 + n^2 + n^4 + n^5], AppendTo[a, n]], {n, 1, 1400}]; a
Select[Range[700], PrimeQ[1+#^2+#^4+#^5]&] (* Harvey P. Dale, Jun 24 2018 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|