A074263 Positions of '22' in Kolakoski sequence A000002.

2, 8, 11, 18, 26, 35, 38, 44, 53, 56, 62, 65, 74, 80, 83, 89, 92, 99, 107, 110, 119, 126, 135, 138, 144, 150, 153, 162, 165, 171, 180, 188, 197, 203, 206, 212, 215, 224, 231, 234, 242, 249, 258, 261, 269, 278, 281, 287, 296, 299, 305, 308, 314, 317, 324, 332

Offset

1,1

Links

Nathaniel Johnston, Table of n, a(n) for n = 1..10000

Example

Kolakoski sequence begins 1,2,2,1,1,2,1,2,2,1,2,2,1,1,... so the sequence includes 2, 8, and 11.

Mathematica

a2 = {1, 2, 2}; Do[ a2 = Join[a2, {1 + Mod[n - 1, 2]}], {n, 3, 300}, {i, 1, a2[[n]]}]; Split[a2] /. {2, 2} -> {0, 2} // Flatten // Position[#, 0] & // Flatten (* Jean-François Alcover, Jun 18 2013 *)

Crossrefs

Cf. A074262.

Sequence in context: A220269 A143189 A056550 * A295070 A009420 A189328

Adjacent sequences: A074260 A074261 A074262 * A074264 A074265 A074266

Keyword

nonn,easy

Author

Jon Perry, Sep 20 2002

Extensions

Extended and offset changed by Nathaniel Johnston, May 02 2011

Status

approved