A157323 Primes in A023037.
3, 13, 109912203092239643840221, 568972471024107865287021434301977158534824481
Offset: 1
Keywords
Programs
-
Mathematica
lst={};Do[s=0;Do[s+=n^a,{a,0,n-1}];If[PrimeQ[s],AppendTo[lst,s]],{n,0,2*5!}];lst
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.