A160360 Numbers n such that 3*n^n+2 is prime.

0, 1, 3, 5, 7, 93, 605

Offset

1,3

Comments

Next term > 45000. - Matevz Markovic, Sep 17 2012

Links

Table of n, a(n) for n=1..7.

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

Adjacent sequences: A160357 A160358 A160359 * A160361 A160362 A160363

Keyword

hard,more,nonn

Author

M. F. Hasler, Jul 10 2009

Status

approved