login
Lengths of rows when A361511 is regarded as an irregular triangle.
3

%I #9 Apr 09 2023 02:01:10

%S 1,2,2,2,2,3,2,4,3,4,3,4,7,3,5,6,6,8,4,6,3,8,6,6,6,9,5,8,6,8,5,7,7,9,

%T 8,9,9,9,12,9,10,10,10,10,14,7,15,11,14,7,14,11,15,9,11,12,10,15,10,

%U 14,16,10,14,11,13,13,15,13,14,15,19,14,13,17,18,12,13,14,13,16

%N Lengths of rows when A361511 is regarded as an irregular triangle.

%C Essentially the first differences of A361512.

%H Michael De Vlieger, <a href="/A361514/b361514.txt">Table of n, a(n) for n = 1..17905</a>

%t nn = 750; c[_] = False; f[n_] := DivisorSigma[0, n]; a[1] = k = m = 1; MapAt[# + 1 &, #, 1] &@ Reap[Do[(If[c[#], a[n] = # + f[a[m]] ; m++, a[n] = f[#] ; Sow[n - k - 1]; Set[k, n - 1]]; c[#] = True) &[a[n - 1]], {n, 2, nn}] ][[-1, -1]] (* _Michael De Vlieger_, Apr 08 2023 *)

%Y Cf. A361511-A361513.

%K nonn

%O 1,2

%A _N. J. A. Sloane_, Apr 08 2023