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

Author

André F. Labossière, Jan 19 2006

Keywords

• easy
• nonn

Links

• Muniru A Asiru, Table of n, a(n) for n = 1..3000

Crossrefs

Cf. A115297, A000040, A000166, A008276.

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 *)

Formula

a(n) = Sum_{k=2..n+1} (A000040(k) - A000040(ceiling(k/2))). - Jon Maiga, Jan 04 2019

Extensions

More terms from André F. Labossière, Mar 27 2006