A286802 Positions of 0 in A286801; complement of A286803.

3, 6, 7, 9, 12, 15, 16, 18, 21, 24, 27, 28, 30, 33, 36, 37, 39, 42, 45, 48, 49, 51, 54, 57, 58, 60, 63, 66, 67, 69, 72, 75, 78, 79, 81, 84, 87, 88, 90, 93, 96, 99, 100, 102, 105, 108, 109, 111, 114, 117, 118, 120, 123, 126, 129, 130, 132, 135, 138, 139, 141

Offset

1,1

Comments

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

Links

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

Example

As a word, A286801 = 11011001011011001011011..., in which 0 is in positions 3,6,7,9,12,...

Mathematica

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

Crossrefs

Cf. A171588, A286801, A286803.

Sequence in context: A324927 A026227 A026232 * A297249 A061641 A325443

Adjacent sequences: A286799 A286800 A286801 * A286803 A286804 A286805

Keyword

nonn,easy

Author

Clark Kimberling, May 16 2017

Status

approved