login
Positions of 0 in A284505; complement of A284507.
3

%I #9 Apr 06 2017 21:45:48

%S 3,4,7,8,13,14,17,18,23,24,27,28,31,32,35,36,41,42,45,46,51,52,55,56,

%T 59,60,63,64,69,70,73,74,79,80,83,84,89,90,93,94,99,100,103,104,107,

%U 108,111,112,117,118,121,122,127,128,131,132,135,136,139,140,145

%N Positions of 0 in A284505; complement of A284507.

%C Conjecture: -3 < n*r - a(n) < 4 for n >= 1, where r = (3+sqrt(3))/2.

%H Clark Kimberling, <a href="/A284506/b284506.txt">Table of n, a(n) for n = 1..10000</a>

%e The first 10 letters of the word in A284505 are 1100110011, in which the positions of 0 are 3,4,7,8.

%t s = Nest[Flatten[# /. {0 -> {1}, 1 -> {1, 1, 0, 0}}] &, {0}, 16]; (* A284505 *)

%t Flatten[Position[s, 0]]; (* A284506 *)

%t Flatten[Position[s, 1]]; (* A284507 *)

%Y Cf. A284505, A284507.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 04 2017