|
%I #7 Jun 13 2017 12:17:42
%S 2,3,5,1608
%N Numbers n such that n^n + n! + n^2 + 1 is prime.
%C The prime corresponding to a(4) is a 5156-digit prime.
%t v={};Do[If[PrimeQ[n^n + n! + n*n + n/n], v=Append[v, n];Print[v]], {n, 3250}]
%o (PARI) is(n)=ispseudoprime(n^n+n!+n^2+1) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A084914, A084852.
%K nonn
%O 1,1
%A _Farideh Firoozbakht_, Jan 06 2004
|
