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

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

Cf. A320927, A320929.

Sequence in context: A327423 A024913 A284934 * A186225 A353130 A050172

Adjacent sequences: A320925 A320926 A320927 * A320929 A320930 A320931

Keyword

nonn,easy

Author

Clark Kimberling, Oct 24 2018

Status

approved