A115298 Row sums of A115297.
1, 3, 7, 13, 21, 31, 43, 55, 73, 91, 115, 139, 165, 193, 227, 263, 301, 339, 381, 423, 471, 517, 569, 625, 685, 745, 809, 871, 937, 1011, 1089, 1167, 1247, 1335, 1425, 1515, 1611, 1707, 1809, 1915, 2023, 2135, 2249, 2363, 2479, 2601, 2735, 2865, 2997, 3129
Offset: 1
Links
- Muniru A Asiru, Table of n, a(n) for n = 1..3000
Programs
-
Maple
a:=n->add(ithprime(k)-ithprime(ceil(k/2)),k=2..n+1): seq(a(n),n=1..60); # Muniru A Asiru, Jan 04 2019
-
Mathematica
Accumulate[Table[Prime[n] - Prime[Ceiling[n/2]], {n, 2, 51}]] (* Jon Maiga, Jan 04 2019 *)
Extensions
More terms from André F. Labossière, Mar 27 2006