P=Range[0,20,2];Q=Range[0,20,3];Intersection[P,Q]