A320928 - OEIS

A320928

Positions of 0 in A320927.

1, 2, 3, 5, 6, 8, 9, 11, 13, 14, 15, 17, 18, 20, 22, 23, 24, 26, 27, 29, 31, 32, 33, 35, 37, 38, 39, 41, 42, 44, 45, 47, 49, 50, 51, 53, 54, 56, 58, 59, 60, 62, 64, 65, 66, 68, 69, 71, 72, 74, 76, 77, 78, 80, 81, 83, 85, 86, 87, 89, 91, 92, 93, 95, 96, 98

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

OFFSET

1,2

LINKS

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

MATHEMATICA

s[n_] := Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0, 1, 0}}] &, {0}, n]; (* A189628 *)

t = Table[s[n], {n, 0, 8}]; Take[t, 5] (* successive segments of morphism s *)

u = Flatten[t]; Take[u, 200] (* A320927 *)

v = Flatten[Position[u, 0]]; Take[v, 200] (* A320928 *)

w = Flatten[Position[u, 1]]; Take[w, 200] (* A320929 *)

CROSSREFS