%I #4 Apr 28 2017 22:39:13
%S 1,4,5,6,7,8,11,14,17,20,23,24,25,26,27,30,31,32,33,34,37,38,39,40,41,
%T 44,45,46,47,48,51,52,53,54,55,58,61,64,67,70,71,72,73,74,77,80,83,86,
%U 89,90,91,92,93,96,99,102,105,108,109,110,111,112,115,118
%N Positions of 1 in A285427; complement of A285428.
%C Conjecture: a(n)/n -> (82 + sqrt(3))/47.
%H Clark Kimberling, <a href="/A285429/b285429.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285427 = 100111110..., in which 1 is in positions 1,4,5,6,...
%t s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {1, 0, 0}}] &, {0}, 10] (* A285427 *)
%t Flatten[Position[s, 0]] (* A285428 *)
%t Flatten[Position[s, 1]] (* A285429 *)
%Y Cf. A026363, A026364.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 28 2017
|