1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl use ExtUtils::testlib; use SSLeay; for (7 .. 7926) { my $num = SSLeay::BN::dec2bn($_); print "$_ is ".($num->is_prime ? 'prime' : 'composite'), "\n"; }