A284389 - OEIS

%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