(49g 50g) Ramanujan Tau Function

[Gerald H]

If you only want the sum of 1st power of divisors this programme is more economical:

Size: 117.

CkSum: # 87h

Code:

::
  CK1&Dispatch
  # FF
  ::
    FPTR2 ^ZAbs
    FPTR2 ^DupQIsZero?
    caseSIZEERR
    FPTR2 ^DupZIsOne?
    ?SEMI
    FPTR2 ^MZSQFF
    #2/
    ZINT 1
    SWAP
    ZERO_DO
    3PICK
    ROT
    COERCE
    #1+
    FPTR2 ^PPow#
    ZINT 1
    FPTR2 ^QSub
    ROT
    ZINT 1
    FPTR2 ^QSub
    FPTR2 ^ZQUOText
    FPTR2 ^QMul
    LOOP
  ;
;