A284819 Positions of 1 in A284817.

3, 7, 9, 12, 15, 19, 21, 25, 27, 30, 34, 36, 39, 43, 45, 48, 51, 55, 57, 61, 63, 66, 69, 73, 75, 79, 81, 84, 88, 90, 93, 96, 100, 102, 106, 108, 111, 115, 117, 120, 123, 127, 129, 133, 135, 138, 142, 144, 147, 151, 153, 156, 159, 163, 165, 169, 171, 174, 177

Offset

1,1

Comments

This sequence and A284818 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

Example

A284817 = (0,0,1,0,0,0,1,0,1,0,0,1,0,0...), so that a(1) = 3, a(2) = 7, a(3) = 9.

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, A284818.

Sequence in context: A366529 A190366 A342699 * A190742 A289906 A190752

Adjacent sequences: A284816 A284817 A284818 * A284820 A284821 A284822

Keyword

nonn,easy

Author

Clark Kimberling, Apr 15 2017

Status

approved