A284902 - OEIS

A284902

Positions of 0 in A284901; complement of A284903.

1, 4, 5, 6, 8, 9, 10, 11, 13, 15, 18, 19, 20, 21, 23, 25, 27, 30, 31, 32, 33, 36, 37, 38, 39, 42, 43, 44, 46, 47, 48, 49, 51, 53, 55, 58, 59, 60, 61, 64, 65, 66, 67, 70, 71, 72, 73, 76, 77, 78, 80, 81, 82, 83, 85, 87, 89, 92, 93, 94, 96, 97, 98, 99, 101, 103

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

OFFSET

1,2

COMMENTS

Conjecture: -3 < n*r - a(n) < 3 for n >= 1, where r = (3+sqrt(3))/3.

LINKS

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

EXAMPLE

As a word, A284901 = 01100010..., in which 0 is in positions 1,4,5,6,8,9,11,...

MATHEMATICA

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 1, 1}}] &, {0}, 6] (* A284901 *)

Flatten[Position[s, 0]] (* A284902 *)