|
%I #5 Apr 30 2017 22:37:53
%S 3,6,7,10,15,18,19,22,25,28,29,32,35,38,39,42,47,50,51,54,57,60,61,64,
%T 65,68,69,72,75,78,79,82,87,90,91,94,97,100,101,104,107,110,111,114,
%U 119,122,123,126,131,134,135,138,143,146,147,150,153,156,157,160
%N Positions of 0 in A285568; complement of A286031.
%C Conjecture: a(n)/n -> (3+sqrt(5))/2.
%H Clark Kimberling, <a href="/A285569/b285569.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285568 = 110110011011..., in which 0 is in positions 3,6,7,10,...
%t s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 1, 0}}] &, {0}, 9] (* A285568 *)
%t Flatten[Position[s, 0]] (* A285569 *)
%t Flatten[Position[s, 1]] (* A286031 *)
%Y Cf. A285566, A285568, A286031.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 30 2017
|
