A284791 Positions of 1 in A284789; complement of A284790.

2, 3, 8, 9, 13, 15, 20, 22, 26, 27, 32, 33, 37, 39, 43, 44, 49, 51, 56, 57, 61, 63, 68, 70, 74, 75, 80, 82, 87, 88, 92, 94, 98, 99, 104, 105, 109, 111, 116, 118, 122, 123, 128, 129, 133, 135, 139, 140, 145, 147, 152, 153, 157, 159, 163, 164, 169, 170, 174

Offset

1,1

Comments

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

Links

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

Example

As a word, A284789 = 0110000110001010..., in which 1 is in positions 2,3,8,9,13,...

Mathematica

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

Crossrefs

Cf. A010060, A284789, A284790.

Sequence in context: A224225 A283160 A281148 * A281111 A301917 A327312

Adjacent sequences: A284788 A284789 A284790 * A284792 A284793 A284794

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved