perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' [number]
[ Home | Post Entry | Log in | Search | Browse Options | Site Map ]
