Wolstenholme numbers: Difference between revisions
→{{header|ALGOL 68}}: Tweak
m (→{{header|ALGOL 68}}: Blurb) |
(→{{header|ALGOL 68}}: Tweak) |
||
Line 44:
END # gcd # ;
# returns the nth second order harmonic number #
PROC harmonic2 = (
BEGIN
LONG LONG INT v := 0, f := 1;
f *:= i * i
OD;
FOR i
v +:= f OVER ( i * i )
OD;
|