A284934 Positions of 1 in A284792; complement of A284933.

2, 3, 5, 6, 8, 9, 11, 13, 14, 15, 17, 18, 20, 21, 22, 24, 26, 27, 29, 30, 32, 33, 35, 37, 38, 39, 41, 43, 44, 46, 47, 49, 50, 51, 53, 54, 56, 57, 59, 61, 62, 63, 65, 66, 68, 69, 70, 72, 74, 75, 77, 78, 80, 81, 82, 84, 85, 87, 88, 90, 92, 93, 94, 96, 98, 99

Offset

1,1

Comments

a(n) - a(n-1) is in {1,2} 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, A284932 = 0110110110101110..., in which 1 is in positions 2,3,5,6,8,...

Mathematica

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

Crossrefs

Cf. A010060, A284792, A284933.

Sequence in context: A211265 A327423 A024913 * A320928 A186225 A353130

Adjacent sequences: A284931 A284932 A284933 * A284935 A284936 A284937

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Extensions

Definition corrected by Georg Fischer, Jun 05 2020

Status

approved