cp's OEIS Frontend

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

%I A108787 #12 Jun 11 2019 19:54:42
%S A108787 1,10,11,11,100,101,110,111,1000,1000,1000,1001,1001,1010,1011,1100,
%T A108787 1100,1101,1110,1111,10000,10000,10000,10000,10001,10001,10001,10001,
%U A108787 10010,10010,10010,10010,10011,10011,10011,10100,10101,10101
%N A108787 Binary numbers such that the first differences give the same sequence written as a string of individual digits.
%H A108787 Robert Israel, <a href="/A108787/b108787.txt">Table of n, a(n) for n = 1..10000</a>
%e A108787 1, 10, 11, 11, 100, 101, 110, 111, 1000, 1000, 1001, 1001, ... <- sequence (base 2)
%e A108787 ..1..1..0..1..1..1..1..1..0..0..1..0... <- first difference are the sequence's digits.
%p A108787 A[1]:= 1: B:= 1: S:= "1":
%p A108787 for n from 2 to 100 do
%p A108787   B:= B + parse(S[n-1]);
%p A108787   A[n]:= convert(B,binary);
%p A108787   S:= cat(S,A[n]);
%p A108787 od:
%p A108787 seq(A[i],i=1..100); # _Robert Israel_, Jun 11 2019
%Y A108787 Cf. A108788, A108789, A108790.
%Y A108787 Cf. A100787 for a similar sequence in decimal.
%K A108787 base,easy,nonn
%O A108787 1,2
%A A108787 _Philippe Deléham_, Jul 09 2005