A285137 - OEIS

A285137

Positions of 0 in A285136; complement of A285138.

2, 4, 6, 7, 8, 9, 11, 12, 13, 16, 18, 20, 22, 23, 24, 25, 27, 28, 29, 32, 34, 36, 38, 39, 40, 41, 43, 44, 45, 48, 49, 50, 51, 54, 55, 56, 57, 60, 61, 62, 63, 66, 68, 70, 72, 73, 74, 75, 77, 78, 79, 82, 83, 84, 85, 88, 89, 90, 91, 94, 96, 98, 100, 101, 102

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

OFFSET

1,1

COMMENTS

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

LINKS

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

EXAMPLE

As a word, A285136 = 10101000010..., in which 0 is in positions 2,4,6,7,...

MATHEMATICA

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

Flatten[Position[s, 0]]; (* A285137 *)