modular exponentiation?

[J-F Garnier]

The HP-71B can compute the least 9 significant digits easily (well at least in Emu71 -for the speed):

Code:

  10 S=0 @ M=10^9
  20 FOR I=1 TO 999
  25   X=1
  30   FOR N=1 TO I
  40     X=MOD(X*I,M)
  50   NEXT N
  60   S=MOD(S+X,M)
  70 NEXT I
  80 DISP S

 110846700

J-F