

A054352


Lengths of successive generations of the Kolakoski sequence A000002.


9



1, 2, 4, 7, 11, 18, 28, 43, 65, 99, 150, 226, 340, 511, 768, 1153, 1728, 2590, 3885, 5826, 8742, 13116, 19674, 29514, 44280, 66431, 99667, 149531, 224306, 336450, 504648, 756961, 1135450, 1703197
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


COMMENTS

Starting with a(0) = 1, the first term of A000002, the nth generation is the run of figures directly generated from the preceding generation completed with a single last figure which begins the next run. Thus a(0) = 1 > 12 > 1221 > 1221121 etc.  JeanChristophe Hervé, Oct 26 2014


LINKS

Table of n, a(n) for n=0..33.


FORMULA

a(0) = 1, and for n > 0, a(n) = A054353(a(n1))+1.  JeanChristophe Hervé, Oct 26 2014


MATHEMATICA

A2 = {1, 2, 2}; Do[If[Mod[n, 10^5] == 0, Print["n = ", n]]; m = 1 + Mod[n  1, 2]; an = A2[[n]]; A2 = Join[A2, Table[m, {an}]], {n, 3, 10^6}]; A054353 = Accumulate[A2]; Clear[a]; a[0] = 1; a[n_] := a[n] = A054353[[a[n  1]]] + 1; Table[a[n], {n, 0, 33}] (* JeanFrançois Alcover, Oct 30 2014, after JeanChristophe Hervé *)


CROSSREFS

Cf. A054348, A054349, A054350, A054351, A054353, A042942, A000002.
Sequence in context: A261666 A034412 A289131 * A091838 A288219 A004696
Adjacent sequences: A054349 A054350 A054351 * A054353 A054354 A054355


KEYWORD

nonn,easy


AUTHOR

N. J. A. Sloane, May 07 2000


EXTENSIONS

More terms from John W. Layman, Aug 20 2002
One more term from JeanFrançois Alcover, Oct 30 2014


STATUS

approved



