A335075 Positions of 1's when Kolakoski sequence is grouped into four independent numbers as 1, 2, 11, 22.
1, 5, 7, 13, 17, 23, 25, 29, 31, 37, 41, 43, 49, 51, 55, 59, 61, 67, 71, 73, 79, 85, 91, 95, 97, 101, 103, 109, 113, 115, 121, 125, 131, 133, 137, 141, 143, 149, 155, 157, 161, 167, 173, 175, 179, 185, 187, 191, 193, 199, 201, 205, 209, 211, 217, 221, 223, 227, 229
Offset: 1
Keywords
Examples
A000002 can be grouped as 1, 22, 11, 2, 1, 22, 1, 22, 11, 2, ... The positions of occurrence of 1's (1, 5, 7, ...) are given in this sequence.
Crossrefs
Cf. A000002.
Programs
-
Mathematica
s = {1, 2, 2}; Do[s = Append[s, Mod[n-1, 2] + 1], {n, 3, 230}, {s[[n]]}]; Position[Split[s], {1}] // Flatten (* Amiram Eldar, Jul 24 2020 *)