|
|
A177070
|
|
Numbers n such that 2^n + n^2 + 2 is prime.
|
|
0
|
|
|
0, 1, 3, 5, 7, 13, 17, 27, 31, 185, 211, 273, 413, 439, 665, 879, 6873, 20979
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
k = 1; lst = {0}; While[k < 30000, If[PrimeQ[2^k + k^2 + 2], AppendTo[lst, k]]; k += 2]; lst (* Robert G. Wilson v, Jun 08 2010 *)
Join[{0}, Select[Range[1, 21000, 2], PrimeQ[2^#+#^2+2]&]] (* Harvey P. Dale, Dec 18 2011 *)
|
|
PROG
|
(Magma) [n: n in [0..2200]|IsPrime(2^n+n^2+2)]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|