%I #9 Sep 27 2022 12:43:51
%S 1,2,4,6,8,12,14,17,18,20,23,24,27,28,30,33,35,37,39,41,43,45,47,49,
%T 51,53,56,57,60,63,65,67,68,72,73,74,75,76,79,82,83,85,86,89,90,92,94,
%U 96,98,100,103,104,107,109,110,112,114,116,118,120,122,124,126
%N a(1) = 1, thereafter, first differences of A357370.
%C Length of row n of A355917 taken as an irregular triangle where the rows terminate in 0.
%C Length of inventory n in A355916 = 2*a(n).
%C Final subscript in the n-th inventory in A355916 = a(n) - 1.
%H Michael De Vlieger, <a href="/A357371/b357371.txt">Table of n, a(n) for n = 1..10000</a>
%t nn = 63; c[_] = 0; i = 1; {1}~Join~Differences@ Reap[Do[k = 0; While[c[k] > 0, Set[m, c[k]]; c[m]++; c[k]++; i += 2; k++]; Set[m, c[k]]; c[m]++; c[k]++; Sow[(i + 1)/2]; i += 2, {n, nn}]][[-1, -1]]
%Y Cf. A355916, A355917, A357370.
%K nonn
%O 1,2
%A _Michael De Vlieger_, Sep 25 2022