|
%I #4 Apr 26 2017 21:43:26
%S 1,2,3,5,6,7,9,10,11,13,15,16,17,19,20,21,23,24,25,27,29,30,31,33,34,
%T 35,37,38,39,41,43,44,45,47,49,50,51,53,54,55,57,58,59,61,63,64,65,67,
%U 68,69,71,72,73,75,77,78,79,81,82,83,85,86,87,89,91,92
%N Positions of 1 in A285373; complement of A285374.
%C Conjecture: 0 < n*sqrt(2) - a(n) < 3 for n>=1.
%H Clark Kimberling, <a href="/A285375/b285375.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285373 = 11101110..., in which 1 is in positions 1,2,3,5,6,7,9,...
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 1, 0}}] &, {0}, 10] (* A285373 *)
%t Flatten[Position[s, 0]] (* A285374 *)
%t Flatten[Position[s, 1]] (* A285375 *)
%Y Cf. A284373, A285374, A285376.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 26 2017
|
