A099849 Partial sums of A008480.

1, 2, 3, 4, 5, 7, 8, 9, 10, 12, 13, 16, 17, 19, 21, 22, 23, 26, 27, 30, 32, 34, 35, 39, 40, 42, 43, 46, 47, 53, 54, 55, 57, 59, 61, 67, 68, 70, 72, 76, 77, 83, 84, 87, 90, 92, 93, 98, 99, 102, 104, 107, 108, 112, 114, 118, 120, 122, 123, 135, 136, 138, 141, 142, 144, 150

Offset: 1

Author

Reinhard Zumkeller, Oct 27 2004

Keywords

• nonn
• easy

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A008480, A099848.

Programs

Haskell

a099849 n = a099849_list !! (n-1)
a099849_list = scanl1 (+) a008480_list -- Reinhard Zumkeller, Nov 19 2015

Mathematica

Accumulate[Table[Multinomial @@ FactorInteger[n][[;; , 2]], {n, 1, 100}]] (* Amiram Eldar, May 13 2025 *)

Formula

a(1) = A008480(1) and for n>1: a(n) = a(n-1) + A008480(n).

A099848(a(n) - k) = n for 0 <= k < A008480(n).