sub p{ grep{(1x$_)!~/^(11+)\1+$/}2..pop }