|
|
A160360
|
|
Numbers n such that 3*n^n+2 is prime.
|
|
8
|
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|