($a,$b)=glob<>;
for$y(0..$b){
    for$x(0..$a){
	$a[$x+$y*5]=1;
    }
}
print join$/,grep$a[$_],1..600;