login
A120878
a(n) = sum of first n terms of sequence A120877.
2
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
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
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 10 2006
EXTENSIONS
More terms from Klaus Brockhaus, Aug 16 2006
STATUS
approved