|
%I #14 Jun 04 2017 08:04:47
%S 2,3,5,7,8,10,12,13,15,17,19,20,22,24,25,27,29,31,32,34,36,37,39,41,
%T 42,44,46,48,49,51,53,54,56,58,60,61,63,65,66,68,70,71,73,75,77,78,80,
%U 82,83,85,87,89,90,92,94,95,97,99,101,102,104,106,107,109
%N Positions of 0 in A285076; complement of A285078.
%C Conjecture: -1 < n*r - a(n) < 1 for n>=1, where r = 1 + sqrt(1/2).
%C This conjecture can be proved in the same way as the conjecture on A285074. - _Michel Dekking_, May 30 2017
%C Appears to differ from A285074 only at a(1). - _R. J. Mathar_, Apr 24 2017
%C This is correct, and follows from the fact that A285073 and A285076 are equal except for the first two terms which are respectively 0,1 and 1,0. (See Comments for A285073.) - _Michel Dekking_, May 30 2017
%H Clark Kimberling, <a href="/A285077/b285077.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285076 = 100101001010..., in which 0 is in positions 2,3,5,7,8,...
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 0}}] &, {0}, 13]; (* A285076 *)
%t Flatten[Position[s, 0]]; (* A285077 *)
%t Flatten[Position[s, 1]]; (* A285078 *)
%Y Cf. A285074, A285076, A285078.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 19 2017
|
