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
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 10 2006
EXTENSIONS
More terms from Klaus Brockhaus, Aug 16 2006
STATUS
approved