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 A347318 #12 Oct 13 2021 03:58:15
%S A347318 1,3,4,6,6,8,9,11,12,13,15,17,19,23,29,36,43,60,91,150,265,493,946,
%T A347318 1848,3649,7246,14437,28814,57564,115059,230044,460010,919938,1839789,
%U A347318 3679485,7358874,14717646,29435186,58870261,117740405,235480687,470961245,941922354,1883844567
%N A347318 Length of row n in A347317.
%t A347318 Block[{c, k, m, r = 0}, c[0] = 1; Prepend[Differences[#], First[#]] &@ Position[{-1}~Join~Reap[Do[k = 0; While[k <= r, If[IntegerQ@ c[k], Set[m, c[k]], Set[c[k], 0]; Set[m, 0]]; If[m > r, r = m]; Sow[m]; If[IntegerQ@ c[m], c[m]++, c[m] = 1]; k++]; Sow[-1]; c[0]++, 32]][[-1, -1]], -1][[All, 1]]] (* _Michael De Vlieger_, Oct 12 2021 *)
%Y A347318 Cf. A347299, A347317.
%K A347318 nonn
%O A347318 0,2
%A A347318 _N. J. A. Sloane_, Sep 10 2021
%E A347318 a(10)-a(43) from _Andrey Zabolotskiy_, Sep 10 2021