OFFSET
1,3
COMMENTS
Next term > 45000. - Matevz Markovic, Sep 17 2012
MATHEMATICA
Do[If[PrimeQ[3*n^n+2], Print[n]], {n, 15000}]
PROG
(PARI) for(i=1, 9999, ispseudoprime(i^i*3+2)&print1(i", "))
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
M. F. Hasler, Jul 10 2009
STATUS
approved