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 A253444 #11 Apr 27 2024 10:59:20
%S A253444 2,4,14,17,27,1,21,62,34,86,86,47,186,94,53,212,226,148,251,696,1484,
%T A253444 630,1870,563,813,188,1222,154,960,6654,1980,8872,10027,3628,5724,
%U A253444 6330,12059,10418,10169,4192,4868
%N A253444 Lengths of runs of identical terms in A253443.
%C A253444 A253584(n) occurs exactly a(n) times in A253443.
%t A253444 nn = 2^14; c[_] := False;
%t A253444 Array[Set[{a[#], c[#]}, {#, True}] &, 2]; u = s = a[1] + a[2];
%t A253444 Differences@ Reap[Monitor[Do[k = SelectFirst[Divisors[s], ! c[#] &];
%t A253444 c[k] = True; s += k;
%t A253444 If[k == u, Sow[n]; While[c[u], u++]], {n, 3, nn}], n] ][[-1, 1]] (* _Michael De Vlieger_, Apr 27 2024 *)
%o A253444 (Haskell)
%o A253444 import Data.List (group)
%o A253444 a253444 n = a253444_list !! (n-1)
%o A253444 a253444_list = map length $ group a253443_list
%Y A253444 Cf. A253443, A253584, A109890.
%K A253444 nonn,more
%O A253444 1,1
%A A253444 _Reinhard Zumkeller_, Jan 01 2015
%E A253444 More terms from _Michael De Vlieger_, Apr 27 2024