OFFSET
1,2
MATHEMATICA
lst={}; s=0; Do[p=Prime[n]; s=s+p; r=s/p; If[r==IntegerPart[r], AppendTo[lst, r]], {n, 1, 10^6}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 07 2008 *)
CROSSREFS
KEYWORD
nonn,nice,more
AUTHOR
EXTENSIONS
a(5) from Kok Seng Chua (chuaks(AT)ihpc.nus.edu.sg), May 14 2000
a(6) from Paul W. Dyson, Apr 16 2022
STATUS
approved