A286338 Positions of 1 in A286336; complement of A286337.

5, 6, 9, 14, 16, 17, 23, 24, 27, 29, 30, 36, 41, 42, 45, 50, 52, 53, 59, 64, 65, 68, 70, 71, 77, 78, 81, 86, 88, 89, 95, 96, 99, 101, 102, 108, 113, 114, 117, 119, 120, 126, 127, 130, 135, 137, 138, 144, 149, 150, 153, 158, 160, 161, 167, 168, 171, 173, 174

Offset

1,1

Comments

Conjecture: a(n)/n -> 3.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Example

As a word, A286336 = 0000110010000101100000110..., in which 1 is in positions 5,6,9,14,16,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"1101" -> "0"}]
st = ToCharacterCode[w1] - 48  (* A286336 *)
Flatten[Position[st, 0]]  (* A286337 *)
Flatten[Position[st, 1]]  (* A286338 *)

Crossrefs

Cf. A010060, A286336, A286337.

Sequence in context: A341301 A218735 A301658 * A344231 A117951 A328115

Adjacent sequences: A286335 A286336 A286337 * A286339 A286340 A286341

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved