login
Positions of 0 in A284533; complement of A284535.
4

%I #6 Apr 08 2017 09:45:31

%S 1,3,6,8,11,13,15,17,20,22,25,27,30,32,35,37,39,41,44,46,49,51,53,55,

%T 58,60,63,65,68,70,73,75,77,79,82,84,87,89,91,93,96,98,101,103,105,

%U 107,110,112,115,117,119,121,124,126,129,131,134,136,139,141,143

%N Positions of 0 in A284533; complement of A284535.

%C Conjecture: a(n)/n -> (3 + sqrt(3))/2.

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

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

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

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

%Y Cf. A284533, A284535, A284589.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Apr 07 2017