Wolstenholme numbers: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (→{{header|Perl}}: now runs correctly, and on older Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: oops, output issue) |
||
| Line 407: | Line 407: | ||
printf "%5s: %s\n", $_, abbr $W[$_-1]->numerator() for 1..20, 5e2, 1e3, 2.5e3, 5e3, 1e4; |
printf "%5s: %s\n", $_, abbr $W[$_-1]->numerator() for 1..20, 5e2, 1e3, 2.5e3, 5e3, 1e4; |
||
print "\nPrime Wolstenholme numbers:\n"; |
|||
my($n,$c); |
my($n,$c); |
||
do { printf "%5s: %s\n", ++$c, abbr $W[$n]->numerator() if is_prime $W[++$n]->numerator() } until $c == 15; |
do { printf "%5s: %s\n", ++$c, abbr $W[$n]->numerator() if is_prime $W[++$n]->numerator() } until $c == 15; |
||