|
%I #5 Apr 02 2017 09:44:57
%S 1,2,4,5,9,10,12,13,15,16,20,21,25,26,30,31,33,34,36,37,41,42,44,45,
%T 47,48,52,53,55,56,58,59,63,64,68,69,73,74,76,77,79,80,84,85,89,90,94,
%U 95,97,98,100,101,105,106,110,111,115,116,118,119,121,122,126
%N Positions of 0 in A284388; complement of A284390.
%H Clark Kimberling, <a href="/A284389/b284389.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 1 + A284392(n-2) for n >= 3.
%t s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 0, 1}}] &, {0}, 8]; (* A284388 *)
%t Flatten[Position[s, 0]]; (* A284389 *)
%t Flatten[Position[s, 1]]; (* A284390 *)
%Y Cf. A284388, A284390, A284392.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Mar 30 2017
|
