A323477 Successive generations of A306211, in compressed notation.
1, 11, 112, 11221, 11221221, 1122122122121, 1122122122121221212111, 1122122122121221212111221212111211113, 1122122122121221212111221212111211113221212111211113211113141
Offset: 1
Programs
-
Mathematica
s[n_] := If[n == 1, {1}, s[n] = Join[s[n-1], Length /@ Split[s[n-1]]]]; a[n_] := FromDigits[s[n]]; Array[a, 9] (* Jean-François Alcover, Feb 24 2021 *)
Comments