%I #30 Sep 17 2012 12:30:04
%S 0,1,3,5,7,93,605
%N Numbers n such that 3*n^n+2 is prime.
%C Next term > 45000. - _Matevz Markovic_, Sep 17 2012
%t Do[If[PrimeQ[3*n^n+2],Print[n]],{n,15000}]
%o (PARI) for(i=1,9999,ispseudoprime(i^i*3+2)&print1(i","))
%K hard,more,nonn
%O 1,3
%A _M. F. Hasler_, Jul 10 2009