

A284819


Positions of 1 in A284817.


3



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



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



KEYWORD

nonn,easy


AUTHOR



STATUS

approved



