|
%I #12 Oct 27 2018 09:54:45
%S 4,7,10,12,16,19,21,25,28,30,34,36,40,43,46,48,52,55,57,61,63,67,70,
%T 73,75,79,82,84,88,90,94,97,100,102,106,108,112,115,118,120,124,127,
%U 129,133,136,138,142,144,148,151,154,156,160,163,165,169,171,175
%N Positions of 1 in A320927.
%H Clark Kimberling, <a href="/A320929/b320929.txt">Table of n, a(n) for n = 1..1000</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, A320928.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Oct 24 2018
|
