|
%I #4 Apr 18 2017 22:41:24
%S 1,2,3,5,6,7,8,10,11,12,13,15,17,19,21,22,23,24,26,27,28,29,31,32,33,
%T 34,36,37,38,39,41,43,45,47,48,49,50,52,53,54,55,57,58,59,60,62,63,64,
%U 65,67,69,71,73,74,75,76,78,80,82,84,85,86,87,89,91,93
%N Positions of 0 in A284954; complement of A284956.
%C Conjecture: a(n)/n -> (5 + sqrt(13))/6.
%H Clark Kimberling, <a href="/A284955/b284955.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A284954 = 000100001..., in which 0 is in positions 1,2,3,5,6,7,...
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 0}}] &, {0}, 8]; (* A284954 *)
%t Flatten[Position[s, 0]]; (* A284955 *)
%t Flatten[Position[s, 1]]; (* A284956 *)
%Y Cf. A284954, A284956, A284958.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 18 2017
|
