|
|
|
|
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(n-1) 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
|
|
|
|