A350929 a(n) = A350928(n)/A095258(n).

3, 2, 4, 3, 3, 3, 2, 4, 10, 17, 6, 4, 3, 18, 10, 25, 11, 26, 23, 14, 47, 8, 5, 3, 48, 46, 24, 17, 17, 4, 3, 18, 52, 73, 27, 10, 74, 112, 161, 50, 47, 6, 48, 73, 21, 147, 64, 113, 29, 114, 175, 96, 81, 64, 55, 161, 47, 12, 48, 73, 15, 13, 74, 131, 38, 132, 153

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

Cf. A095258, A350928.

Sequence in context: A101403 A025509 A130079 * A365236 A247190 A243289

Adjacent sequences: A350926 A350927 A350928 * A350930 A350931 A350932

Keyword

nonn,easy,look

Author

Michael De Vlieger, Jan 23 2022

Status

approved