OFFSET
1,1
COMMENTS
a(12) > 15000. - Michael S. Branicky, Aug 09 2024
MATHEMATICA
Do[If[PrimeQ[n^(n+1)+(n+1)^n-n(n+1)], Print[n]], {n, 1000}]
PROG
(PARI) is(n)=ispseudoprime(n^(n+1)+(n+1)^n-n*(n+1)) \\ Charles R Greathouse IV, Jun 12 2017
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Farideh Firoozbakht, Jul 13 2003
STATUS
approved