Help for this page
Select Code to Download
Select
or
download this
sub isPrime { ('1' x $_[0]) !~ /^(11+)\1+$/; }