OFFSET
0,11
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..9396
MAPLE
a:= proc(n) local d, i, l, m, r;
i, r, l, m:= 0$2, 2, (<<0|1>, <1|1>>^n)[1, 2];
while m>0 do d:= irem(m, 2, 'm');
if d=l then r:= r+d*2^i; i:=i+1 fi; l:= d
od; r
end:
seq(a(n), n=0..100); # Alois P. Heinz, Sep 08 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 08 2018
STATUS
approved