m:-between(0,400,A),\+format("~d
",A mod 3//2*A+A+(A+1)mod 3).