sub f{
#23456789 123456789 123456789 123456789 123456789 123456789 
$_=1x$_[0];for$n(1..sqrt$_[0]){m[^.{$n}.]g;s[\G(.{$n}).][${1}0]g;}
}
f(pop);
++$i and $1 and print $i while m[(.)]g;

##</code><code>##

sub f{
$x="\xff"x$_[0];for(2..$_[0]){$n=$_;vec($x,$n,1)=0 while($n+=$_)<$_[0];}
}
f( $ARGV[0]);
vec$x,$_,1 and print $_ for 1..$ARGV[0];