|
%I #10 Jan 26 2022 08:55:21
%S 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,
%T 17,17,4,3,18,52,73,27,10,74,112,161,50,47,6,48,73,21,147,64,113,29,
%U 114,175,96,81,64,55,161,47,12,48,73,15,13,74,131,38,132,153
%N a(n) = A350928(n)/A095258(n).
%H Michael De Vlieger, <a href="/A350929/b350929.txt">Table of n, a(n) for n = 1..10000</a>
%t 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]]
%Y Cf. A095258, A350928.
%K nonn,easy,look
%O 1,1
%A _Michael De Vlieger_, Jan 23 2022
|
