%I #12 Jun 11 2019 19:54:42

%S 1,10,11,11,100,101,110,111,1000,1000,1000,1001,1001,1010,1011,1100,

%T 1100,1101,1110,1111,10000,10000,10000,10000,10001,10001,10001,10001,

%U 10010,10010,10010,10010,10011,10011,10011,10100,10101,10101

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

%H Robert Israel, <a href="/A108787/b108787.txt">Table of n, a(n) for n = 1..10000</a>

%e 1, 10, 11, 11, 100, 101, 110, 111, 1000, 1000, 1001, 1001, ... <- sequence (base 2)

%e ..1..1..0..1..1..1..1..1..0..0..1..0... <- first difference are the sequence's digits.

%p A[1]:= 1: B:= 1: S:= "1":

%p for n from 2 to 100 do

%p B:= B + parse(S[n-1]);

%p A[n]:= convert(B,binary);

%p S:= cat(S,A[n]);

%p od:

%p seq(A[i],i=1..100); # _Robert Israel_, Jun 11 2019

%Y Cf. A108788, A108789, A108790.

%Y Cf. A100787 for a similar sequence in decimal.

%K base,easy,nonn

%O 1,2

%A _Philippe Deléham_, Jul 09 2005