END{for(;k<50;k=++i/2)print$i=k*5-k%1-2*$k}