OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
s=0; lst={}; Do[s+=n; p=IntegerPart[s]; If[PrimeQ[p], AppendTo[lst, p]], {n, 1, 7!, Pi}]; lst
PROG
(PARI) for(n=1, 500, m=floor(n + n*(n-1)*Pi/2); if(isprime(m), print1(m, ", "))) \\ G. C. Greubel, Jul 28 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 31 2009
EXTENSIONS
Definition clarified by R. J. Mathar, Aug 01 2009
STATUS
approved