OFFSET
1,1
COMMENTS
a(7) > 3000. - Daniel Starodubtsev, Aug 05 2019
MATHEMATICA
f[n_]:=PrimeQ[n^n+115]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 6!}]; lst
PROG
(PARI) is(n)=ispseudoprime(n^n+115) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 03 2010
STATUS
approved