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

1, 2, 3, 4, 5, 27

Offset: 1

Author

Farideh Firoozbakht, Jul 13 2003

Keywords

• more
• nonn

Comments

a(7) > 10600. - Michael S. Branicky, Mar 21 2023

Crossrefs

Cf. A072179, A073499.

Programs

Mathematica

Do[If[PrimeQ[n^(n+1)+(n+1)^n+n(n+1)], Print[n]], {n, 0, 1000}]
Select[Range[30],PrimeQ[#^(#+1)+(#+1)^#+#(#+1)]&] (* Harvey P. Dale, May 28 2016 *)

PARI

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