A160935 Primes of the form (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.

14895727353257, 512474206568459, 1103779373734673681, 109731549455318100991819, 4249662931931407612631693, 4689665988858897033287831, 5877525788223071748329633, 8037772485664366798058773, 10876955676900411107259113, 12241767259055374446327569

Offset

1,1

Links

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

Maple

f:= n ->  (n+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:
Res:= NULL: count:= 0:
for n from 0 while count < 20 do
  v:= f(n);
  if isprime(v) then count:= count+1; Res:= Res, v;
od:
Res; # 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, a]], {n, 0, 7!}]; lst
Select[Table[Total[Range[n+1, n+9]^Range[9]], {n, 0, 1000}], PrimeQ] (* Harvey P. Dale, Apr 03 2015 *)
Select[Table[Total[Table[(n+d)^d, {d, 9}]], {n, 1000}], PrimeQ] (* Harvey P. Dale, Sep 10 2024 *)

Crossrefs

Cf. A027886, A160932, A160934, A160937.

Sequence in context: A068747 A238357 A349028 * A159271 A288277 A297449

Adjacent sequences: A160932 A160933 A160934 * A160936 A160937 A160938

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 30 2009

Extensions

More terms from Harvey P. Dale, Apr 03 2015

Status

approved