|
%I #4 Apr 02 2017 09:45:22
%S 3,4,8,9,11,12,14,15,19,20,24,25,29,30,32,33,35,36,40,41,43,44,46,47,
%T 51,52,54,55,57,58,62,63,67,68,72,73,75,76,78,79,83,84,88,89,93,94,96,
%U 97,99,100,104,105,109,110,114,115,117,118,120,121,125,126
%N Positions of 0 in A284391; complement of A284393.
%H Clark Kimberling, <a href="/A284392/b284392.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = -1 + A284389(n+2) for n >= 1.
%t s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 0, 1}}] &, {0}, 9]; (* A284391 *)
%t Flatten[Position[s, 0]]; (* A284392 *)
%t Flatten[Position[s, 1]]; (* A284393 *)
%Y Cf. A284389, A284391, A284393.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Mar 30 2017
|
