apl>" <------------------------- sam148.txt ---------------------------->


apl>)copy cap2/handbook/wksp/ac add alprec can


apl>)copy cap2/handbook/wksp/df div fexp fix float fmul format fsqrt


apl>)copy cap2/handbook/wksp/mo mul


apl>)copy cap2/handbook/wksp/pr pi rounds


apl>)copy cap2/handbook/wksp/su sqrt sub


apl>" compute the ramanujan number *Ok*.5 for k=163


apl>" for numerous other values of k, these numbers are very


apl>" close to perfect integers.  all the more remarkable that


apl>" ramanujan discovered them in 1915 without the aid of a


apl>" computer.


apl>format L#p#pi 6

-6 3 1415926 5358979 3238462 6433832 7950288 4197136

3.1415926 5358979 3238462 6433832 7950288 4197136 

apl>format L#k#3 alprec 163

-5 163 0 0 0 0 0

163.0000000 0000000 0000000 0000000 0000000 

apl>format z#fsqrt k

12.7671453 3480370 4661710 9520097 8089234 

apl>format z#p fmul z

40.1091699 9113251 9755350 0836229 0414003 

apl>format z#fexp z

2625 3741264 0768743.9999999 9999925 0066319 1466030 7724958 

apl>)off