A293795 Numbers k such that (d(k), d(k+1)) = (1,1) in the base-2 digits d(i) of e.

5, 8, 9, 10, 11, 12, 28, 43, 44, 47, 60, 69, 70, 71, 72, 73, 76, 77, 86, 102, 103, 107, 108, 109, 115, 116, 117, 121, 122, 123, 128, 129, 132, 139, 140, 144, 145, 152, 159, 160, 161, 165, 166, 173, 179, 182, 192, 200, 201, 202, 211, 214, 234, 243, 247, 248

Offset

1,1

Comments

This sequence, together with A293792, A293793, and A293794, partitions the positive integers.

Links

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

Example

(d(i)) = (1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1,...) = A004593, in which (1,1) first occurs as (a(5),a(6)).

Mathematica

z = 100; s = StringJoin[Map[ToString, First[RealDigits[N[E], 10000], 2]]]];
Take[Map[#[[1]]&, StringPosition[s, "00"]], z] (*A293792*)
Take[Map[#[[1]]&, StringPosition[s, "01"]], z] (*A293793*)
Take[Map[#[[1]]&, StringPosition[s, "10"]], z] (*A293794*)
Take[Map[#[[1]]&, StringPosition[s, "11"]], z] (*A293795*)
(* Peter J. C. Moses, Oct 15 2017 *)

Crossrefs

Cf. A004593, A293792, A293793, A293794.

Sequence in context: A178309 A259071 A205862 * A165991 A300331 A293271

Adjacent sequences: A293792 A293793 A293794 * A293796 A293797 A293798

Keyword

nonn,easy,base

Author

Clark Kimberling, Oct 20 2017

Status

approved