A284685 Positions of 1 in A284627; complement of A284684.

2, 3, 5, 6, 9, 11, 12, 14, 17, 19, 20, 21, 23, 24, 27, 29, 30, 31, 33, 36, 38, 39, 41, 42, 45, 47, 48, 50, 53, 55, 56, 57, 59, 62, 64, 65, 67, 68, 71, 73, 74, 75, 77, 78, 81, 83, 84, 86, 89, 91, 92, 93, 95, 96, 99, 101, 102, 103, 105, 108, 110, 111, 113, 114

Offset

1,1

Comments

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

Links

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

Example

As a word, A284627 = 0110110010110100101110..., in which 1 is in positions 2,3,5,6,9,...

Mathematica

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

Crossrefs

Cf. A010060, A284627, A284684.

Sequence in context: A026168 A286402 A175007 * A113238 A104214 A349523

Adjacent sequences: A284682 A284683 A284684 * A284686 A284687 A284688

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved