A109726 Divide primes in groups with 2n elements and add together.
0, 5, 36, 156, 442, 954, 1854, 3154, 4998, 7514, 10784, 14786, 19932, 26148, 33448, 42340, 52208, 64322, 77898, 93116, 110224, 129978, 151990, 175224, 201584, 231272, 263500, 298590, 335856, 376616, 420984, 469894, 521740, 577304, 634990
Offset: 0
Links
- Ray Chandler, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
f[n_] := Sum[Prime[k], {k, n}]; Table[f[n*(n + 1)] - f[n*(n - 1)], {n, 0, 34}]
Extensions
Edited and extended by Ray Chandler, Aug 11 2005
Comments