A158528 Sum of primes between consecutive positive cubes.
17, 83, 401, 1092, 2845, 5753, 12357, 19920, 33659, 57259, 80152, 113660, 180627, 233148, 329118, 413586, 584951, 742021, 927917, 1209050, 1500573, 1815997, 2286198, 2771420, 3302411, 3852425, 4848999, 5721599, 6536322, 7584155
Offset: 1
Keywords
Examples
a(1) = 2 + 3 + 5 + 7 = 17, a(2) = 11 + 13 + 17 + 19 + 23 = 83.
Programs
-
Mathematica
Join[{17},Table[Total[Prime[Range[PrimePi[n^3]+1,PrimePi[(n+1)^3]]]],{n,2,35}]] (* Harvey P. Dale, Aug 16 2011 *)