Keyboard shortcuts

Press or to navigate between chapters

Press S or / to search in the book

Press ? to show this help

Press Esc to hide this help

Check if a number is prime

Originally Written by Abigail in 1998 it listed in the JAPH file.

perl -E 'say "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' 23