(dotimes[i 401](prn(+([1 2 i](mod i 3))i)))