A284507 - OEIS

%I #6 Apr 05 2017 07:43:48

%S 1,2,5,6,9,10,11,12,15,16,19,20,21,22,25,26,29,30,33,34,37,38,39,40,

%T 43,44,47,48,49,50,53,54,57,58,61,62,65,66,67,68,71,72,75,76,77,78,81,

%U 82,85,86,87,88,91,92,95,96,97,98,101,102,105,106,109,110

%N Positions of 1 in A284505; complement of A284506.

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

%H Clark Kimberling, <a href="/A284507/b284507.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 1 are 1,2,5,6,9,10.

%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, A284506.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Apr 04 2017