login
A286923
Positions of 0 in A286922; complement of A286924.
3
3, 7, 12, 16, 21, 25, 29, 34, 38, 43, 47, 51, 56, 60, 65, 69, 74, 78, 82, 87, 91, 96, 100, 104, 109, 113, 118, 122, 127, 131, 135, 140, 144, 149, 153, 157, 162, 166, 171, 175, 179, 184, 188, 193, 197, 202, 206, 210, 215, 219, 224, 228, 232, 237, 241, 246
OFFSET
1,1
COMMENTS
a(n) - a(n-1) is in {4,5} for n>=2, and a(n)/n -> 3 + sqrt(2).
LINKS
EXAMPLE
As a word, A286922 = 1101110111101110111101110..., in which 0 is in positions 3,7,12,16....
MATHEMATICA
s = Nest[Flatten[# /. {0 -> 1, 1 -> {1, 1, 0}}] &, {1}, 7] (* A080764 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "01"}]
st = ToCharacterCode[w1] - 48 ; (* A286922 *)
Flatten[Position[st, 0]]; (* A286923 *)
Flatten[Position[st, 1]]; (* A286924 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 17 2017
STATUS
approved