A074277 Positions of occurrences of 1,1,2,1,2,2,1,1,2 in the Kolakoski sequence A000002.

22, 115, 184, 220, 238, 265, 381, 438, 481, 557, 584, 602, 629, 683, 752, 779, 806, 848, 866, 967, 1036, 1072, 1090, 1117, 1179, 1232, 1259, 1334, 1379, 1460, 1487, 1514, 1541, 1714, 1789, 1870, 2050, 2077, 2104, 2131, 2149, 2176, 2250, 2291, 2348, 2391

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A074275, A074276.

Sequence in context: A079466 A217086 A079676 * A299580 A289350 A100930

Adjacent sequences: A074274 A074275 A074276 * A074278 A074279 A074280

Keyword

nonn,easy

Author

Jon Perry, Sep 21 2002

Extensions

Extended and offset corrected by Nathaniel Johnston, May 02 2011

Status

approved