A253444 Lengths of runs of identical terms in A253443.

2, 4, 14, 17, 27, 1, 21, 62, 34, 86, 86, 47, 186, 94, 53, 212, 226, 148, 251, 696, 1484, 630, 1870, 563, 813, 188, 1222, 154, 960, 6654, 1980, 8872, 10027, 3628, 5724, 6330, 12059, 10418, 10169, 4192, 4868

Offset: 1

Author

Reinhard Zumkeller, Jan 01 2015

Keywords

• nonn
• more

Comments

A253584(n) occurs exactly a(n) times in A253443.

Crossrefs

Cf. A253443, A253584, A109890.

Programs

Haskell

import Data.List (group)
a253444 n = a253444_list !! (n-1)
a253444_list = map length $ group a253443_list

Mathematica

nn = 2^14; c[_] := False;
Array[Set[{a[#], c[#]}, {#, True}] &, 2]; u = s = a[1] + a[2];
Differences@ Reap[Monitor[Do[k = SelectFirst[Divisors[s], ! c[#] &];
  c[k] = True; s += k;
If[k == u, Sow[n]; While[c[u], u++]], {n, 3, nn}], n] ][[-1, 1]] (* Michael De Vlieger, Apr 27 2024 *)

Extensions

More terms from Michael De Vlieger, Apr 27 2024