A160937 Numbers k such that (k+1)^1+(k+2)^2+(k+3)^3+(k+4)^4+(k+5)^5+(k+6)^6+(k+7)^7+(k+8)^8+(k+9)^9 is prime.

20, 34, 92, 354, 536, 542, 556, 576, 596, 604, 660, 732, 764, 786, 800, 804, 862, 916, 1088, 1164, 1168, 1240, 1256, 1296, 1366, 1378, 1446, 1522, 1644, 1646, 1716, 1794, 1802, 1808, 1828, 1856, 1864, 1908, 1914, 2036, 2060, 2162, 2220, 2426, 2466, 2468

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

f:= n -> add((n+i)^i, i=1..9):
select(n -> isprime(f(n)), [$1..3000]); # Robert Israel, Nov 09 2025

Mathematica

f[n_]:=(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4+(n+5)^5+(n+6)^6+(n+7)^7+(n+8)^8+(n+9)^9; lst={}; Do[a=f[n]; If[PrimeQ[a], AppendTo[lst, n]], {n, 0, 7!}]; lst

Prog

(PARI) is(n)=isprime(sum(k=1, 9, (n+k)^k)) \\ Charles R Greathouse IV, Jun 13 2017

Crossrefs

Cf. A160935, A027886, A160932, A160934.

Sequence in context: A039343 A043166 A043946 * A060124 A068476 A003895

Adjacent sequences: A160934 A160935 A160936 * A160938 A160939 A160940

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, May 30 2009

Extensions

Edited by Charles R Greathouse IV, Nov 11 2009

Status

approved