Pick[Range[100], Xor@@@Array[Divisible[#1,#2]&, {100,100}]]