A284818 - OEIS

%I #6 Apr 16 2017 00:13:55

%S 1,2,4,5,6,8,10,11,13,14,16,17,18,20,22,23,24,26,28,29,31,32,33,35,37,

%T 38,40,41,42,44,46,47,49,50,52,53,54,56,58,59,60,62,64,65,67,68,70,71,

%U 72,74,76,77,78,80,82,83,85,86,87,89,91,92,94,95,97,98

%N Positions of 0 in A284817.

%C This sequence and A284819 show that the nonperiodic complementary sequences A284776 and A284777 stay close to the odd positive integers, A005408, and even positive integers, A005843, respectively.

%H Clark Kimberling, <a href="/A284818/b284818.txt">Table of n, a(n) for n = 1..10000</a>

%F A284817 = (0,0,1,0,0,0,1,0,1,0,0,1,0,...), so that a(1) = 1, a(2) = 2, a(3) = 4.

%t s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 1, 1}}] &, {0}, 7]; (* A284775 *)

%t u = Flatten[Position[s, 0]] ; (* A284776 *)

%t v = Flatten[Position[s, 1]];  (* A284777 *)

%t t = Table[2 n - 1 - u[[n]], {n, 1, 200}]; (* A284817 *)

%t Flatten[Position[t, 0]]; (* A284818 *)

%t Flatten[Position[t, 1]]; (* A284819 *)

%Y Cf. A005843, A284776, A284819.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Apr 14 2017