|
%I #6 Apr 03 2017 04:13:50
%S 1,3,6,7,9,12,14,17,18,20,24,27,29,32,33,34,36,39,40,42,45,47,50,51,
%T 53,57,60,62,65,66,68,71,73,76,77,79,83,86,88,91,92,93,95,98,99,101,
%U 104,106,109,110,112,116,120,123,125,128,129,131,135,138,140,143
%N Positions of 1 in A284471; complement of A284472.
%C Conjecture: a(n)/n -> (1 + sqrt(13))/2.
%H Clark Kimberling, <a href="/A284473/b284473.txt">Table of n, a(n) for n = 1..14208</a>
%t s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 1, 0, 0}}] &, {0}, 17]; (* A284471 *)
%t Flatten[Position[s, 0]]; (* A284472 *)
%t Flatten[Position[s, 1]]; (* A284473*)
%Y Cf. A284471, A284472.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 02 2017
|
