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,1

Comments

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

Links

Table of n, a(n) for n=1..41.

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 *)

Prog

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

Crossrefs

Cf. A253443, A253584, A109890.

Sequence in context: A054600 A077570 A360713 * A336821 A299488 A295401

Adjacent sequences: A253441 A253442 A253443 * A253445 A253446 A253447

Keyword

nonn,more

Author

Reinhard Zumkeller, Jan 01 2015

Extensions

More terms from Michael De Vlieger, Apr 27 2024

Status

approved