|\^/|     Maple V Release 4 (INRIA)
._|\|   |/|_. Copyright (c) 1981-1996 by Waterloo Maple Inc. All rights
 \  MAPLE  /  reserved. Maple and Maple V are registered trademarks of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> twotok:=1:
> T[0]:=1:
> for k to 10 do twotok:=2*twotok;
>   L:=convert(twotok,base,10);
>   T[k]:=op(-1,L);
> od:
> seq(T[k],k=0..10);
                        1, 2, 4, 8, 1, 3, 6, 1, 2, 5, 1
> twotok:=1:
> for k to 1000 do twotok:=2*twotok;
> L:=convert(twotok,base,10);
> C[op(-1,L)]:=C[op(-1,L)]+1;
> od:
> seq(C[c],c=0..9);
                   0, 301, 176, 125, 97, 79, 69, 56, 52, 45

> seq(evalf((ln(c+1)-ln(c))/ln(10),3),c=1..9);

          .301, .177, .126, .0957, .0783, .0696, .0565, .0522, .0435