(doseq[n(range 1 501)](if(<(reduce #(max(-%(if(>(mod n%2)0)0%2))%2)0(range n 0 -1))2)(prn n)))