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