(do((i(read)(if(oddp i)(1+(* 3 i))(/ i 2))))((=(princ i)1))(terpri))