1,1

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

Sequence in context: A092830 A105291 A048756 this_sequence A016549 A147584 A163357

Adjacent sequences: A157320 A157321 A157322 this_sequence A157324 A157325 A157326

nonn

Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 27 2009