

A269352


Kolakoski(1,10) sequence: a(n) is length of nth run.


1



1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 1, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

No prime number with the union of many terms.


LINKS

Table of n, a(n) for n=1..74.
Michael Baake and Bernd Sing, Kolakoski(3,1) is a (deformed) model set, arXiv:math/0206098 [math.MG], 20022003.


MATHEMATICA

seed = {1, 10}; w = {}; i = 1; Do[w = Join[w, Array[seed[[Mod[i  1, Length[seed]] + 1]]&, If[i > Length[w], seed, w][[i]]]]; i++, {n, 42}]; w


CROSSREFS

Cf. similar sequences listed in A269268.
Sequence in context: A131722 A072803 A163139 * A010692 A109751 A160941
Adjacent sequences: A269349 A269350 A269351 * A269353 A269354 A269355


KEYWORD

nonn,easy


AUTHOR

Vincenzo Librandi, Mar 02 2016


STATUS

approved



