%I
%S 3,6,9,12,13,14,15,16,19,22,25,28,31,32,33,34,35,38,41,44,47,50,51,52,
%T 53,54,57,60,63,66,69,70,71,72,73,76,77,78,79,80,83,84,85,86,87,90,91,
%U 92,93,94,97,98,99,100,101,104,107,110,113,116,117,118,119
%N Positions of 1 in A285177; complement of A285401.
%C Conjecture: a(n)/n > (82 + sqrt(3))/47 = 1.781...
%H Clark Kimberling, <a href="/A285402/b285402.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285177 = 001001..., in which 0 is in positions 3,6,9,12,13,...
%t s = Nest[Flatten[# /. {0 > {1, 1}, 1 > {0, 0, 1}}] &, {0}, 10] (* A285117 *)
%t Flatten[Position[s, 0]] (* A285401 *)
%t Flatten[Position[s, 1]] (* A285402 *)
%Y Cf. A285177, A285401, A285403.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 26 2017
