



3, 4, 7, 8, 12, 13, 16, 17, 21, 22, 25, 26, 29, 30, 34, 35, 38, 39, 43, 44, 47, 48, 51, 52, 56, 57, 60, 61, 65, 66, 69, 70, 74, 75, 78, 79, 82, 83, 87, 88, 91, 92, 96, 97, 100, 101, 104, 105, 109, 110, 113, 114, 118, 119, 122, 123, 127, 128, 131, 132, 135
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

a(n)  a(n1) is in {1,3,4} for n>=2, and a(n)/n > (3 + sqrt(2))/2.


LINKS



EXAMPLE

As a word, A286804 = 11001100111001100111001..., in which 0 is in positions 3,4,7,8,12,...


MATHEMATICA

s = Nest[Flatten[# /. {0 > 1, 1 > {1, 1, 0}}] &, {1}, 7] (* A080764 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" > "00"}]
st = ToCharacterCode[w1]  48 ; (* A286903 *)
Flatten[Position[st, 0]]; (* A286904 *)
Flatten[Position[st, 1]]; (* A286905 *)


CROSSREFS



KEYWORD

nonn,easy


AUTHOR



STATUS

approved



