A028581 Quotients associated with A024011.
1, 2, 9, 15001, 10736033, 731778483019656
Offset: 1
Programs
-
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 *)
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