A284470 - OEIS

%I #6 Apr 03 2017 20:31:23

%S 2,5,7,10,11,13,17,20,22,25,26,28,31,33,36,37,39,43,46,48,51,52,53,55,

%T 58,59,61,64,66,69,70,72,76,80,83,85,88,89,91,95,98,100,103,104,106,

%U 109,111,114,115,117,121,124,126,129,130,131,133,136,137,139

%N Positions of 1 in A284468; complement of A284469.

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

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

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

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

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

%Y Cf. A284468, A284469, A284473.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 02 2017