OFFSET
1,1
COMMENTS
Some of the results were computed using the PrimeFormGW (PFGW) primality-testing program. - Hugo Pfoertner, Nov 16 2019
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[k = 2; While[p = k^n + 2; ! PrimeQ[p], k++]; k, {n, 68}] (* T. D. Noe, Apr 03 2012 *)
PROG
(PARI) for(n=1, 68, forstep(k=3, oo, 2, if(isprime(k^n+2), print1(k, ", "); break))) \\ Hugo Pfoertner, Oct 30 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 17 2003
EXTENSIONS
Corrected and extended by Hugo Pfoertner, computed using PFGW, Jun 01 2004
a(49) corrected by T. D. Noe, Apr 03 2012
STATUS
approved