Wolstenholme numbers: Difference between revisions
m
→{{header|ALGOL 68}}: Change comments and name to better describe the second order harmonic numerator procedure
Drkameleon (talk | contribs) (added Arturo) |
m (→{{header|ALGOL 68}}: Change comments and name to better describe the second order harmonic numerator procedure) |
||
Line 43:
a
END # gcd # ;
# returns the numerator of the nth second order harmonic number
PROC
BEGIN
LONG LONG INT v := 0, f := 1;
Line 59:
print( ( "First ", whole( UPB wols, 0 ), " Wolstenholme numbers:", newline ) );
FOR i TO UPB wols DO
wols[ i ] :=
print( ( whole( wols[ i ], -18 ) ) );
IF i MOD 4 = 0 THEN print( ( newline ) ) FI
| |||