A110932 Numbers k such that 2*k^k + 1 is prime.
0, 1, 12, 18, 251, 82992
Offset: 0
Crossrefs
Programs
-
Mathematica
Join[{0}, Select[Range[1000], PrimeQ[2*#^# + 1] &]] (* Robert Price, Mar 27 2019 *)
-
PARI
is_A110932(n)=ispseudoprime(n^n*2+1) \\ M. F. Hasler, Sep 02 2012
Extensions
a(5) from Serge Batalov, Apr 08 2018
Comments