A084852 Numbers k such that k^(k+1) + (k+1)^k - k(k+1) is prime.

2, 5, 6, 7, 8, 9, 14, 37, 81, 143, 302

Offset: 1

Author

Farideh Firoozbakht, Jul 13 2003

Keywords

• more
• nonn

Comments

a(12) > 15000. - Michael S. Branicky, Aug 09 2024

Crossrefs

Cf. A072179, A073499.

Programs

Mathematica

Do[If[PrimeQ[n^(n+1)+(n+1)^n-n(n+1)], Print[n]], {n, 1000}]

PARI

is(n)=ispseudoprime(n^(n+1)+(n+1)^n-n*(n+1)) \\ Charles R Greathouse IV, Jun 12 2017