A120878 a(n) = sum of first n terms of sequence A120877.

1, 2, 4, 7, 9, 12, 18, 25, 27, 31, 33, 37, 39, 43, 45, 49, 52, 64, 76, 88, 100, 112, 125, 127, 129, 134, 144, 167, 169, 172, 187, 189, 196, 214, 226, 238, 252, 284, 300, 331, 333, 339, 345, 354, 374, 387, 394, 407, 409, 411, 417, 423, 430, 447, 453, 459, 467, 469

Offset

1,2

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Mathematica

nn = 120; c[_] := 0; s = a[1] = c[1] = 1; w = {1}; Do[k = Total@ Map[c, Select[w, Divisible[s, #] &]]; s += k; c[k]++; a[n] = s; If[FreeQ[w, k], AppendTo[w, k]], {n, 2, nn}]; Array[a, nn] (* Michael De Vlieger, Oct 12 2024 *)

Prog

(PARI) {m=60; v=[1]; for(n=2, m, a=0; q=sum(i=1, n-1, v[i]); for(j=1, n-1, if(q%v[j]==0, a++)); print1(q, ", "); v=concat(v, a))} \\ Klaus Brockhaus, Aug 16 2006

Crossrefs

Cf. A120877.

Sequence in context: A212988 A344290 A064491 * A137996 A360627 A080057

Adjacent sequences: A120875 A120876 A120877 * A120879 A120880 A120881

Keyword

nonn

Author

Leroy Quet, Jul 10 2006

Extensions

More terms from Klaus Brockhaus, Aug 16 2006

Status

approved