A284852 - OEIS

A284852

Positions of 0 in A284851; complement of A284853.

1, 3, 5, 6, 7, 9, 11, 12, 13, 15, 17, 19, 21, 22, 23, 25, 27, 28, 29, 31, 33, 35, 37, 38, 39, 41, 43, 44, 45, 47, 49, 50, 51, 53, 55, 56, 57, 59, 61, 63, 65, 66, 67, 69, 71, 72, 73, 75, 77, 79, 81, 82, 83, 85, 87, 88, 89, 91, 93, 94, 95, 97, 99, 100, 101

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

OFFSET

1,2

COMMENTS

Conjecture: -2 < n*r - a(n) < 2 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, A284851 = 010100..., in which 0 is in positions 1,3,5,6,...

MATHEMATICA

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

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