A191746 Partial sums of product of twin primes.
15, 50, 193, 516, 1415, 3178, 6777, 11960, 22363, 34026, 53069, 75568, 107967, 144830, 184033, 236016, 293615, 366514, 446037, 543380, 664483, 840882, 1027505, 1240948, 1513431, 1838330, 2198329, 2580252, 2992415, 3428014, 4084113, 4759796, 5445379, 6181542
Offset: 1
Keywords
Crossrefs
Cf. A037074.
Programs
-
Mathematica
Accumulate[Times@@@Select[Partition[Prime[Range[500]],2,1], Last[#]- First[#] ==2&]]