



1, 3, 4, 6, 9, 10, 12, 13, 15, 18, 19, 21, 22, 24, 25, 27, 30, 31, 33, 34, 36, 39, 40, 42, 43, 45, 46, 48, 51, 52, 54, 55, 57, 60, 61, 63, 64, 66, 69, 70, 72, 73, 75, 76, 78, 81, 82, 84, 85, 87, 90, 91, 93, 94, 96, 97, 99, 102, 103, 105, 106, 108, 111, 112
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

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


LINKS

Clark Kimberling, Table of n, a(n) for n = 1..10000


EXAMPLE

As a word, A286691 = 0100101100100101100100100101100100..., in which 0 is in positions 1,3,4,6,9,...


MATHEMATICA

s = Nest[Flatten[# /. {0 > {0, 0, 1}, 1 > {0}}] &, {0}, 6] (* A171588 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" > "010", "1">"110"}]
st = ToCharacterCode[w1]  48 ; (* A286691 *)
Flatten[Position[st, 0]]; (* A286692 *)
Flatten[Position[st, 1]]; (* A286693 *)


CROSSREFS

Cf. A171588, A286691, A286693.
Sequence in context: A080710 A115837 A102342 * A014419 A138670 A080336
Adjacent sequences: A286689 A286690 A286691 * A286693 A286694 A286695


KEYWORD

nonn,easy


AUTHOR

Clark Kimberling, May 13 2017


STATUS

approved



