A108787 Binary numbers such that the first differences give the same sequence written as a string of individual digits.

1, 10, 11, 11, 100, 101, 110, 111, 1000, 1000, 1000, 1001, 1001, 1010, 1011, 1100, 1100, 1101, 1110, 1111, 10000, 10000, 10000, 10000, 10001, 10001, 10001, 10001, 10010, 10010, 10010, 10010, 10011, 10011, 10011, 10100, 10101, 10101

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

1, 10, 11, 11, 100, 101, 110, 111, 1000, 1000, 1001, 1001, ... <- sequence (base 2)
..1..1..0..1..1..1..1..1..0..0..1..0... <- first difference are the sequence's digits.

Maple

A[1]:= 1: B:= 1: S:= "1":
for n from 2 to 100 do
  B:= B + parse(S[n-1]);
  A[n]:= convert(B, binary);
  S:= cat(S, A[n]);
od:
seq(A[i], i=1..100); # Robert Israel, Jun 11 2019

Crossrefs

Cf. A108788, A108789, A108790.

Cf. A100787 for a similar sequence in decimal.

Sequence in context: A121266 A045988 A008947 * A097585 A063671 A330024

Adjacent sequences: A108784 A108785 A108786 * A108788 A108789 A108790

Keyword

base,easy,nonn

Author

Philippe Deléham, Jul 09 2005

Status

approved