|
%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
|
