OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
s=0; lst={}; Do[s+=n; p=s+5; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 7!}]; lst
Select[Accumulate[Range[0, 500]]+5, PrimeQ] (* Harvey P. Dale, Jul 08 2017 *)
PROG
(PARI) for(n=1, 500, if(isprime(k=n*(n+1)/2 + 5), print1(k, ", "))) \\ G. C. Greubel, Jul 13 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 03 2009
EXTENSIONS
Definition rephrased, R. J. Mathar, Apr 05 2009
STATUS
approved