login
A084852
Numbers k such that k^(k+1) + (k+1)^k - k(k+1) is prime.
1
2, 5, 6, 7, 8, 9, 14, 37, 81, 143, 302
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
Sequence in context: A039044 A212441 A182783 * A288659 A228374 A092206
KEYWORD
more,nonn
AUTHOR
Farideh Firoozbakht, Jul 13 2003
STATUS
approved