(for n 0 400(prn:+(`(1 2,n)(mod n 3))n))