modular exponentiation?

[J-F Garnier]

A slightly modified version of the HP-71B program, that provides the full requested 10 digits:

Code:

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

 9110846700

J-F