login
A160360
Numbers n such that 3*n^n+2 is prime.
8
0, 1, 3, 5, 7, 93, 605
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
Sequence in context: A254925 A153138 A201270 * A082697 A051345 A242387
KEYWORD
hard,more,nonn
AUTHOR
M. F. Hasler, Jul 10 2009
STATUS
approved