A177070 Numbers n such that 2^n + n^2 + 2 is prime.

0, 1, 3, 5, 7, 13, 17, 27, 31, 185, 211, 273, 413, 439, 665, 879, 6873, 20979

Offset

0,3

Links

Table of n, a(n) for n=0..17.

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)]
(PARI) is(n)=ispseudoprime(2^n+n^2+2) \\ Charles R Greathouse IV, Jun 13 2017

Crossrefs

Sequence in context: A171566 A137270 A071111 * A247018 A038929 A242755

Adjacent sequences: A177067 A177068 A177069 * A177071 A177072 A177073

Keyword

nonn

Author

Vincenzo Librandi, May 31 2010

Extensions

a(17) & a(18) from Robert G. Wilson v, Jun 08 2010

Status

approved