A095233 a(n) = a(n-1) + Sum(floor(n/p): p prime), a(1) = 1.

1, 2, 4, 7, 11, 17, 24, 32, 41, 52, 64, 78, 93, 110, 129, 149, 170, 193, 217, 243, 271, 301, 332, 365, 399, 435, 472, 511, 551, 594, 638, 683, 730, 779, 830, 883, 937, 993, 1051, 1111, 1172, 1236, 1301, 1368, 1437, 1508, 1580, 1654, 1729, 1806, 1885

Offset: 1

Author

Reinhard Zumkeller, Jun 22 2004

Keywords

• nonn

Comments

a(n+1) - a(n) = A013939(n+1).

Links

• G. C. Greubel, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A001221.

Programs

Mathematica

A013939[n_] := Sum[Floor[n/Prime[k]], {k, 1, n}]; RecurrenceTable[{a[n] == a[n - 1] + A013939[n], a[1] == 1}, a, {n, 1, 50}] (* G. C. Greubel, May 20 2017 *)