A284933 Positions of 0 in A284792; complement of A284934.

1, 4, 7, 10, 12, 16, 19, 23, 25, 28, 31, 34, 36, 40, 42, 45, 48, 52, 55, 58, 60, 64, 67, 71, 73, 76, 79, 83, 86, 89, 91, 95, 97, 100, 103, 106, 108, 112, 115, 119, 121, 124, 127, 130, 132, 136, 138, 141, 144, 148, 151, 154, 156, 160, 162, 165, 168, 171, 173

Offset

1,2

Comments

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

Links

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

Example

As a word, A284932 = 0110110110101110..., in which 0 is in positions 1,4,7,10,12,...

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, A284934.

Sequence in context: A320929 A104280 A083032 * A020965 A065713 A184850

Adjacent sequences: A284930 A284931 A284932 * A284934 A284935 A284936

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Extensions

Definition corrected by Georg Fischer, Jun 05 2020

Status

approved