|
%I #7 May 12 2017 08:35:22
%S 3,4,7,8,10,12,15,16,19,20,22,24,27,28,30,33,34,36,39,40,43,44,46,48,
%T 51,52,55,56,58,60,63,64,66,69,70,72,75,76,79,80,82,84,87,88,90,93,94,
%U 97,98,100,102,105,106,108,111,112,115,116,118,120,123,124
%N Positions of 0 in A285345; complement of A285347.
%C Conjecture: 2n + 1 - a(n) is in {0,1} for n>=1; see A285351.
%H Clark Kimberling, <a href="/A285346/b285346.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285345 = 1100110..., in which 0 is in positions 3,4,7,8,10,...
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 0, 0}}] &, {0}, 10] (* A285345 *)
%t Flatten[Position[s, 0]] (* A285346 *)
%t Flatten[Position[s, 1]] (* A285347 *)
%Y Cf. A285345, A285347, A285351.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 25 2017
|
