|
=={{header|Perl}}==
{{incorrect|Perl|First four "primes" are not prime}}
{{libheader|ntheory}}
<syntaxhighlight lang="perl" line>
use Math::BigRat try => 'GMP';
sub abbr ({ my $d) {= shift; my $l = length $d; $l < 41 ? $d : substr($d,0,20) . '..' . substr($d,-20) . " ($l digits)" }
my @W = Math::BigRat->new('1/1');
push @res, "\nPrime Wolstenholme numbers:";
my($n,$c) = (0,0);
do { printf "%5s: %s\n", ++$c, abbr $W[$n]->numerator() if is_prime $W[$n++$n]->numerator() } until $c == 15;
</syntaxhighlight>
{{out}}
Prime Wolstenholme numbers:
1: 495
2: 1077749266681
3: 4093155262140799043101
4: 1729997573154264186364397717734821
5: 3619239422373864495836190908596780862323..2717179771485454002979995976006474252029 (104 digits)
6: 2339999118666763459733427988094524601237..0525113597821998023148446489305085140033 (157156 digits)
7: 9918661715452359222322812704758392002353..5036292443394941796384405125167217413149 (216218 digits)
8: 2834781424816538487028347687473208792918..8331377781424704805945794572911130248059 (318 digits)
9: 7844068942263792202378440559440644426017..4490839248728349841930422337523878698419 (520 digits)
10: 2270691879992872993622706893975121925531..1697400503458396498902173859396183964989 (649 digits)
11: 2731040889378936320927310394808585898968..3484321839224438827186311385662644388271 (935 digits)
12: 6110507107309343968713001072736642048751..7431555032084486533708635832246554146071 (985984 digits)
13: 1508686794039445918515086863305391456002..9760097028250491869305367804007944918693 (1202 digits)
14: 2354193989435627741323541935187269979100..8991105685614046887902324742766220468879 (1518 digits)
15: 4030679092390999291540306783143871607599..0980549863513557694158901192511859288941 (1539 digits)</pre>
</pre>
=={{header|Phix}}==
|