for$_(1..10000){$b=$c=-1;while($b++<9){$c++if/$b/};print"$_\n"if$c==1}