A284818 Positions of 0 in A284817.

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, 38, 40, 41, 42, 44, 46, 47, 49, 50, 52, 53, 54, 56, 58, 59, 60, 62, 64, 65, 67, 68, 70, 71, 72, 74, 76, 77, 78, 80, 82, 83, 85, 86, 87, 89, 91, 92, 94, 95, 97, 98

Offset

1,2

Comments

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.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Formula

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.

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 1, 1}}] &, {0}, 7]; (* A284775 *)
u = Flatten[Position[s, 0]] ; (* A284776 *)
v = Flatten[Position[s, 1]];  (* A284777 *)
t = Table[2 n - 1 - u[[n]], {n, 1, 200}]; (* A284817 *)
Flatten[Position[t, 0]]; (* A284818 *)
Flatten[Position[t, 1]]; (* A284819 *)

Crossrefs

Cf. A005843, A284776, A284819.

Sequence in context: A274436 A330330 A189796 * A192584 A337140 A171946

Adjacent sequences: A284815 A284816 A284817 * A284819 A284820 A284821

Keyword

nonn,easy

Author

Clark Kimberling, Apr 14 2017

Status

approved