已知集合A是小于100所有正整数，B是所有小于200的正整数集合，求集合A^B中所有能被6整除的集合，求大佬帮忙解答，不知道我写的哪里错了
A= Range[100]
B = Range[200]
D = Table[A[[i]]^B[[j]], {i, 1, Length[A]}, {j, 1, Length[B]}]
Select[A, Mod[#, 6] = 0 &]
运行结果如下图

A= Range[100]
B = Range[200]
d = Table[A[[i]]^B[[j]], {i, 1, Length[A]}, {j, 1, Length[B]}]
Select[d, Mod[#, 6] == 0 &]

d = Table[a^b, {i, 100}, {j, 200}]
Select[d, Divisible[#, 6]&]

我忘记压平了
d = Catenate@Table[a^b, {a, 100}, {b, 200}]
Select[d, Divisible[#, 6] &]