A122166 Numbers n such that 1 + Sum k^k (k=1..n) is prime.

1, 52, 124, 431

Offset: 1

Author

Alexander Adamchuk, Aug 23 2006

Keywords

• nonn

Comments

Primes of the form A001923[n] = Sum k^k (k=1..n) are given in A073826[n] and their indices are given in A073825[n] = {2,5,6,10,30,...}.

Crossrefs

Cf. A073825, A001923.

Programs

Mathematica

s=1; Do[s=s+k^k;If[PrimeQ[s],Print[{k,s}]],{k,1,500}]