ArithmeticProgressions improved