A073825 Numbers n such that Sum_{k=1..n} k^k is prime.
2, 5, 6, 10, 30
Offset: 1
Keywords
Links
- Carlos Rivera, Puzzle 404. Sigma(x^x), for x=1 to n, The Prime Puzzles & Problems Connection.
- K. Soundararajan, Primes in a Sparse Sequence, Journal of Number Theory 43:2 (1993), pp. 220-227.
Programs
-
Mathematica
v={}; Do[If[(Mod[n, 4]==1||Mod[n, 4]==2)&&PrimeQ[Sum[k^k, {k, n}]], v=Insert[v, n, -1]; Print[v]], {n, 5368}]
-
PARI
s=0; for(k=1,1320, s=s+k^k; if(isprime(s), print1(k,", ")))
Formula
log a(n) >> n log^2 n. - Charles R Greathouse IV, May 17 2016
Extensions
Edited by Charles R Greathouse IV, Oct 27 2010
Comments