



3, 4, 7, 8, 10, 12, 15, 16, 19, 20, 22, 24, 27, 28, 30, 33, 34, 36, 39, 40, 43, 44, 46, 48, 51, 52, 55, 56, 58, 60, 63, 64, 66, 69, 70, 72, 75, 76, 79, 80, 82, 84, 87, 88, 90, 93, 94, 97, 98, 100, 102, 105, 106, 108, 111, 112, 115, 116, 118, 120, 123, 124
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Conjecture: 2n + 1  a(n) is in {0,1} for n>=1; see A285351.


LINKS



EXAMPLE

As a word, A285345 = 1100110..., in which 0 is in positions 3,4,7,8,10,...


MATHEMATICA

s = Nest[Flatten[# /. {0 > {1, 0}, 1 > {1, 1, 0, 0}}] &, {0}, 10] (* A285345 *)
Flatten[Position[s, 0]] (* A285346 *)
Flatten[Position[s, 1]] (* A285347 *)


CROSSREFS



KEYWORD

nonn,easy


AUTHOR



STATUS

approved



