|
%I #10 Oct 27 2018 09:55:38
%S 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,
%T 38,39,41,42,44,45,47,49,50,51,53,54,56,58,59,60,62,64,65,66,68,69,71,
%U 72,74,76,77,78,80,81,83,85,86,87,89,91,92,93,95,96,98
%N Positions of 0 in A320927.
%H Clark Kimberling, <a href="/A320928/b320928.txt">Table of n, a(n) for n = 1..10000</a>
%t s[n_] := Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0, 1, 0}}] &, {0}, n]; (* A189628 *)
%t t = Table[s[n], {n, 0, 8}]; Take[t, 5] (* successive segments of morphism s *)
%t u = Flatten[t]; Take[u, 200] (* A320927 *)
%t v = Flatten[Position[u, 0]]; Take[v, 200] (* A320928 *)
%t w = Flatten[Position[u, 1]]; Take[w, 200] (* A320929 *)
%Y Cf. A320927, A320929.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Oct 24 2018
|
