A286489 Positions of 1 in A286487; complement of A286488.

2, 3, 5, 8, 9, 10, 11, 12, 14, 15, 16, 17, 20, 21, 23, 26, 27, 28, 29, 30, 33, 34, 36, 37, 38, 39, 41, 44, 45, 46, 47, 48, 50, 51, 52, 53, 56, 57, 59, 60, 61, 62, 64, 67, 68, 69, 70, 71, 74, 75, 77, 80, 81, 82, 83, 84, 86, 87, 88, 89, 92, 93, 95, 98, 99, 100

Offset

1,1

Comments

a(n) - a(n-1) is in {1,2,3} for n>=2. Conjecture: a(n)/n -> 3/2.

Links

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

Example

As a word, A286487 = 01101001111101111001..., in which 0 is in positions 1,4,6,7,13,18,...

Mathematica

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

Crossrefs

Cf. A010060, A286487, A286488.

Sequence in context: A026260 A371061 A169655 * A002153 A047607 A113051

Adjacent sequences: A286486 A286487 A286488 * A286490 A286491 A286492

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved