A286690 Positions of 1 in A286688; complement of A286689.

5, 11, 19, 25, 33, 39, 45, 53, 59, 67, 73, 79, 87, 93, 101, 107, 115, 121, 127, 135, 141, 149, 155, 161, 169, 175, 183, 189, 197, 203, 209, 217, 223, 231, 237, 243, 251, 257, 265, 271, 277, 285, 291, 299, 305, 313, 319, 325, 333, 339, 347, 353, 359, 367, 373

Offset

1,1

Comments

a(n) - a(n-1) 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, A286688 = 00001000001000000010000010..., in which 1 is in positions 5,11,19,25,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0}}] &, {0}, 6] (* A171588 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "00", "1"->"10"}]
st = ToCharacterCode[w1] - 48 ; (* A286688 *)
Flatten[Position[st, 0]];  (* A286689 *)
Flatten[Position[st, 1]];  (* A286690 *)

Crossrefs

Cf. A171588, A286688, A286689.

Sequence in context: A356140 A114269 A124855 * A363637 A190756 A022823

Adjacent sequences: A286687 A286688 A286689 * A286691 A286692 A286693

Keyword

nonn,easy

Author

Clark Kimberling, May 13 2017

Status

approved