kill(all);

     Kunihiko Chikaya #420

van=facebook.com/LearningCalculus$

Log(a,u):=log(bfloat(u))/log(bfloat(a))$

countDigits(u) :=
(
    n: Log(10,u)+1,
    for i: 1 thru n do
    (
        u: round(u/10),
        if u = 0 then return(i)
    )
)$

s:sum(3^n,n,0,99);

countDigits(s);