OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
c[_] = 0; j = c[1] = 1; s = 3; Reap[Do[d = Divisors[s]; k = 1; While[c[d[[k]]] > 0, k++]; Set[k, d[[k]]]; Set[c[k], i]; Sow[s/j]; j = k; s += k, {i, 2, 68}]][[-1, -1]]
CROSSREFS
KEYWORD
AUTHOR
Michael De Vlieger, Jan 23 2022
STATUS
approved