A284913 - OEIS

A284913

Positions of 0 in A284912; complement of A284914.

1, 4, 6, 8, 10, 11, 14, 16, 17, 20, 22, 23, 26, 28, 29, 31, 34, 36, 38, 40, 41, 44, 46, 47, 49, 52, 54, 56, 58, 59, 62, 64, 65, 67, 70, 72, 74, 76, 77, 80, 82, 83, 85, 88, 90, 91, 94, 96, 98, 100, 101, 104, 106, 107, 110, 112, 113, 116, 118, 119, 121, 124

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

OFFSET

1,2

COMMENTS

2n - a(n) is in {0,1} for n >= 1.

LINKS

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

EXAMPLE

As a word, A284912 = 011010101..., in which 0 is in positions 1,4,6,8,...

MATHEMATICA

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

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