This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A357371 #9 Sep 27 2022 12:43:51
%S A357371 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 A357371 51,53,56,57,60,63,65,67,68,72,73,74,75,76,79,82,83,85,86,89,90,92,94,
%U A357371 96,98,100,103,104,107,109,110,112,114,116,118,120,122,124,126
%N A357371 a(1) = 1, thereafter, first differences of A357370.
%C A357371 Length of row n of A355917 taken as an irregular triangle where the rows terminate in 0.
%C A357371 Length of inventory n in A355916 = 2*a(n).
%C A357371 Final subscript in the n-th inventory in A355916 = a(n) - 1.
%H A357371 Michael De Vlieger, <a href="/A357371/b357371.txt">Table of n, a(n) for n = 1..10000</a>
%t A357371 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 A357371 Cf. A355916, A355917, A357370.
%K A357371 nonn
%O A357371 1,2
%A A357371 _Michael De Vlieger_, Sep 25 2022