A284790 Positions of 0 in A284789; complement of A284791.

1, 4, 5, 6, 7, 10, 11, 12, 14, 16, 17, 18, 19, 21, 23, 24, 25, 28, 29, 30, 31, 34, 35, 36, 38, 40, 41, 42, 45, 46, 47, 48, 50, 52, 53, 54, 55, 58, 59, 60, 62, 64, 65, 66, 67, 69, 71, 72, 73, 76, 77, 78, 79, 81, 83, 84, 85, 86, 89, 90, 91, 93, 95, 96, 97, 100

Offset

1,2

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, A284789 = 0110000110001010..., in which 0 is in positions 1,4,5,6,7,10,...

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

Sequence in context: A332486 A255137 A047260 * A172999 A354489 A284371

Adjacent sequences: A284787 A284788 A284789 * A284791 A284792 A284793

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved