A284790 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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]]