%I #11 Apr 02 2020 14:07:52
%S 3,6,7,8,11,14,17,18,19,22,23,24,27,28,29,32,35,38,39,40,43,46,49,50,
%T 51,54,57,60,61,62,65,66,67,70,71,72,75,78,81,82,83,86,87,88,91,92,93,
%U 96,99,102,103,104,107,108,109,112,113,114,117,120,123,124
%N Positions of 1 in A284388; complement of A284389.
%C This seems to be A098740 without the initial 2. - _R. J. Mathar_, Apr 05 2017
%H Clark Kimberling, <a href="/A284390/b284390.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 1 + A284393(n+1) for n >= 1.
%t s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 0, 1}}] &, {0}, 8]; (* A284388 *)
%t Flatten[Position[s, 0]]; (* A284389 *)
%t Flatten[Position[s, 1]]; (* A284390 *)
%Y Cf. A284388, A284389, A284393.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Mar 30 2017