A157323 Primes in A023037

3, 13, 109912203092239643840221, 568972471024107865287021434301977158534824481

Offset

1,1

Links

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

Mathematica

lst={}; Do[s=0; Do[s+=n^a, {a, 0, n-1}]; If[PrimeQ[s], AppendTo[lst, s]], {n, 0, 2*5!}]; lst

Crossrefs

Sequence in context: A048756 A174211 A264611 * A016549 A147584 A163357

Adjacent sequences: A157320 A157321 A157322 * A157324 A157325 A157326

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Feb 27 2009

Status

approved