" <------------------------- sam148.txt ---------------------------->
)copy cap2/handbook/wksp/ac add alprec can
)copy cap2/handbook/wksp/df div fexp fix float fmul format fsqrt
)copy cap2/handbook/wksp/mo mul
)copy cap2/handbook/wksp/pr pi rounds
)copy cap2/handbook/wksp/su sqrt sub
" compute the ramanujan number *Ok*.5 for k=163
" for numerous other values of k, these numbers are very
" close to perfect integers.  all the more remarkable that
" ramanujan discovered them in 1915 without the aid of a
" computer.
format L#p#pi 6
format L#k#3 alprec 163
format z#fsqrt k
format z#p fmul z
format z#fexp z
)off