login
Positions of 1 in A284533; complement of A284534.
4

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

%S 2,4,5,7,9,10,12,14,16,18,19,21,23,24,26,28,29,31,33,34,36,38,40,42,

%T 43,45,47,48,50,52,54,56,57,59,61,62,64,66,67,69,71,72,74,76,78,80,81,

%U 83,85,86,88,90,92,94,95,97,99,100,102,104,106,108,109,111

%N Positions of 1 in A284533; complement of A284534.

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

%H Clark Kimberling, <a href="/A284535/b284535.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, A284534, A284590.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 07 2017