用程序验证一下那个积被3整除的排列组合题

题目来自：http://kkkkuingggg.5d6d.net/thread-836-1-1.html

n = 100;
asdf = {};
Do[{
  Do[{
    If[Mod[i j, 3] == 0, asdf = Union[asdf, {i j}]]
    }, {j, i, n}]
  }, {i, 1, n}]
Length[asdf]

输出结果是 1351，希望程序没写错。