|\^/| 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