|
%I #4 Apr 20 2017 09:23:39
%S 2,3,6,9,13,14,18,20,21,24,28,29,32,35,39,41,42,45,49,50,53,56,60,62,
%T 63,66,70,71,74,78,79,82,85,89,90,94,96,97,100,104,105,108,112,113,
%U 116,119,123,125,126,129,132,136,137,141,143,144,147,151,152,155
%N Positions of 0 in A285083; complement of A285085.
%C Conjecture: 0 < n*r - a(n) < r for n>=1, where r = (3+sqrt(5))/2.
%H Clark Kimberling, <a href="/A285084/b285084.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285083 = 1001101101110..., in which 0 is in positions 2,3,6,9,13,...
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 1}}] &, {0}, 13]; (* A285083 *)
%t Flatten[Position[s, 0]]; (* A285084 *)
%t Flatten[Position[s, 1]]; (* A285085 *)
%Y Cf. A285080, A285083, A285085.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 19 2017
|
