login
A286054
Positions of 1 in A286052; complement of A286053.
3
2, 6, 7, 15, 18, 22, 23, 27, 30, 38, 39, 47, 50, 58, 59, 63, 66, 70, 71, 79, 82, 86, 87, 91, 94, 102, 103, 107, 110, 114, 115, 123, 126, 134, 135, 143, 146, 150, 151, 155, 158, 166, 167, 175, 178, 186, 187, 191, 194, 198, 199, 207, 210, 218, 219, 227, 230
OFFSET
1,1
COMMENTS
Conjecture: a(n)/n -> 4.
LINKS
EXAMPLE
As a word, A286052 = 01000110000000100100..., in which 1 is in positions 2,6,7,15,1,8,...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"101" -> "0"}]
st = ToCharacterCode[w1] - 48 (* A286052 *)
Flatten[Position[st, 0]] (* A286053 *)
Flatten[Position[st, 1]] (* A286054 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 08 2017
STATUS
approved