Проверка на простое число регулярным выражением

#!/usr/bin/perl

for ($i = 1; $i<1000; $i++) {
  print $i."\n" if (1 x $i) !~ /^1?$|^(11+?)\1+$/
}

 
>>> import re
>>> def is_prime(n): return None==re.match('^1?$|^(11+?)\\1+$','1'*n)
... 
>>> is_prime(3)
True
>>> is_prime(4)
False
>>> is_prime(12)
False
>>> is_prime(11)
True
>>> is_prime(1)
False
>>> is_prime(3)
True
>>> is_prime(2)
True
>>> is_prime(1)
False
>>> is_prime(2**43112609-1)
Traceback (most recent call last):
  File "<stdin>", line 1, in <module>
  File "<stdin>", line 1, in is_prime
OverflowError: cannot fit 'long' into an index-sized integer
>>>