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

Links

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

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

Mathematica

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

Prog

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

Crossrefs

Cf. A008480, A099848.

Sequence in context: A127565 A082186 A383784 * A071163 A006644 A384798

Adjacent sequences: A099846 A099847 A099848 * A099850 A099851 A099852

Keyword

nonn,easy

Author

Reinhard Zumkeller, Oct 27 2004

Status

approved