login
Lengths of runs of identical terms in A253443.
4

%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