END{for(;i<105;)print$i=3*$(i/2)+i++%2}