|
%I #4 Apr 27 2017 22:50:36
%S 5,6,12,13,19,20,26,27,29,30,32,33,35,36,38,39,45,46,52,53,59,60,66,
%T 67,73,74,76,77,79,80,82,83,85,86,92,93,99,100,106,107,113,114,120,
%U 121,123,124,126,127,129,130,132,133,139,140,146,147,153,154,160
%N Positions of 0 in A285403; complement of A285405.
%H Clark Kimberling, <a href="/A285404/b285404.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285403 = 1111001..., in which 0 is in positions 5,6,12,13,19,...
%t s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 1}}] &, {0}, 11] (* A285403 *)
%t Flatten[Position[s, 0]] (* A285404 *)
%t Flatten[Position[s, 1]] (* A285405 *)
%Y Cf. A285401, A285403, A285405.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 27 2017
|
