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

1, 2, 3, 4, 5, 27

Offset

1,2

Comments

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

Links

Table of n, a(n) for n=1..6.

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 *)

Prog

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

Crossrefs

Cf. A072179, A073499.

Sequence in context: A075807 A124232 A051143 * A115337 A114333 A265098

Adjacent sequences: A084850 A084851 A084852 * A084854 A084855 A084856

Keyword

more,nonn

Author

Farideh Firoozbakht, Jul 13 2003

Status

approved