|
%I #4 Mar 28 2017 15:09:49
%S 2,3,8,9,12,13,16,17,20,21,26,27,30,31,36,37,40,41,46,47,50,51,56,57,
%T 60,61,64,65,68,69,74,75,78,79,84,85,88,89,92,93,96,97,102,103,106,
%U 107,112,113,116,117,120,121,124,125,130,131,134,135,140,141,144
%N Positions of 0 in A284369; complement of A284371.
%C Conjecture: -3 < n*r - a(n) < 4 for n >= 1, where r = (3+sqrt(3))/2.
%H Clark Kimberling, <a href="/A284370/b284370.txt">Table of n, a(n) for n = 1..13375</a>
%e The first 10 letters of the word in A284369 are 1001111001, in which the positions of 0 are 2,3,8,9.
%t s = Nest[Flatten[# /. {0 -> {1}, 1 -> {1, 0, 0, 1}}] &, {0}, 9]; (* A284369 *)
%t Flatten[Position[s, 0]]; (* A284370 *)
%t Flatten[Position[s, 1]]; (* A284371 *)
%Y Cf. A284369, A284371.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Mar 26 2017
|
