I have found this funny regexp 
  (unless (regex {^1?$|^(11+?)1+$} (dup "1" i))
    (print i " ")))
Astonishing! ;-)
			
			
			
				Cool. Someone explain it to me ... :/
			
			
			
				There is a nice explanation here:
http://zmievski.org/2010/08/the-prime-that-wasnt