|
%I
%S 1,2,4,5,6,8,11,12,14,16,17,19,20,21,23,24,25,27,30,31,33,35,36,38,41,
%T 42,44,48,49,51,53,54,56,57,58,60,63,64,66,68,69,71,74,75,77,79,80,82,
%U 83,84,86,89,90,92,94,95,97,98,99,101,102,103,105,108,109
%N Positions of 0 in A284524; complement of A284526.
%C Conjecture: a(n)/n -> (7 + sqrt(13))/6.
%H Clark Kimberling, <a href="/A284525/b284525.txt">Table of n, a(n) for n = 1..10000</a>
%t s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 0, 1, 0}}] &, {0}, 8] (* A284524 *)
%t Flatten[Position[s, 0]] (* A284525 *)
%t Flatten[Position[s, 1]] (* A284526 *)
%Y Cf. A284524, A284526, A284527.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 05 2017
|
