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,2

Comments

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

Links

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

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

Crossrefs

Cf. A001221.

Sequence in context: A024455 A038045 A178063 * A062434 A084267 A177116

Adjacent sequences: A095230 A095231 A095232 * A095234 A095235 A095236

Keyword

nonn

Author

Reinhard Zumkeller, Jun 22 2004

Status

approved