OFFSET
1,1
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..25000
Rémy Sigrist, C program for A323476
MATHEMATICA
seq[n_] := seq[n] = If[n==1, {1}, Join[seq[n-1], Length /@ Split[seq[n-1]]] ];
Position[seq[26], 3] // Flatten (* Jean-François Alcover, Jul 19 2022 *)
PROG
(C) See Links section.
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 29 2019
STATUS
approved
