A286806 Positions of 1 in A286804; complement of A286805.

3, 6, 7, 10, 11, 14, 17, 18, 21, 22, 25, 28, 29, 32, 33, 36, 37, 40, 43, 44, 47, 48, 51, 54, 55, 58, 59, 62, 63, 66, 69, 70, 73, 74, 77, 80, 81, 84, 85, 88, 91, 92, 95, 96, 99, 100, 103, 106, 107, 110, 111, 114, 117, 118, 121, 122, 125, 126, 129, 132, 133

Offset

1,1

Comments

a(n) - a(n-1) is in {1,3} for n>=2, and a(n)/n -> 5 - 2*sqrt(2).

Links

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

Example

As a word, A286804 = 0010011001100100110011..., in which 1 is in positions 3,6,7,10,11,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0}}] &, {0}, 16]; (* Pell word, A171588 *)
w = StringJoin[Map[ToString, s]];
w1 = StringReplace[w, {"000" -> ""}];
st = ToCharacterCode[w1] - 48 ; (* A286804 *)
Flatten[Position[st, 0]];  (* A286805 *)
Flatten[Position[st, 1]];  (* A286806 *)

Crossrefs

Cf. A171588, A286804, A286805.

Sequence in context: A189204 A087249 A188073 * A297125 A211969 A173059

Adjacent sequences: A286803 A286804 A286805 * A286807 A286808 A286809

Keyword

nonn,easy

Author

Clark Kimberling, May 17 2017

Status

approved