A284654 - OEIS

%I #4 Apr 08 2017 09:46:22

%S 1,4,6,9,10,13,16,19,20,23,25,28,30,33,34,37,39,42,44,47,48,51,54,57,

%T 58,61,63,66,67,70,72,75,76,79,82,85,86,89,91,94,96,99,100,103,106,

%U 109,110,113,115,118,120,123,124,127,130,133,134,137,139,142,143

%N Positions of 0 in A284653; complement of A284655.

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

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

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

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

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

%Y Cf. A284653, A284655, A284656.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Apr 07 2017