%I #6 Apr 08 2017 09:45:39
%S 2,4,5,7,9,10,12,14,16,18,19,21,23,24,26,28,29,31,33,34,36,38,40,42,
%T 43,45,47,48,50,52,54,56,57,59,61,62,64,66,67,69,71,72,74,76,78,80,81,
%U 83,85,86,88,90,92,94,95,97,99,100,102,104,106,108,109,111
%N Positions of 1 in A284533; complement of A284534.
%C Conjecture: a(n)/n -> sqrt(3).
%H Clark Kimberling, <a href="/A284535/b284535.txt">Table of n, a(n) for n = 1..10000</a>
%t s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 1, 0, 1}}] &, {0}, 6] (* A284533 *)
%t Flatten[Position[s, 0]] (* A284534 *)
%t Flatten[Position[s, 1]] (* A284535 *)
%Y Cf. A284533, A284534, A284590.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 07 2017