同余Q[n_]：=模块[{x，y，z，ok=False}，（其中[！SquareFreeQ[n]，Null[]，成员Q[{5，6，7}，Mod[n，8]]，ok=True，奇数Q@n&&长度@解算[x^2+2y^2+8z^2==n，{x，y，z}，整数]==2长度@解算[x^2+2y^2+32z^2==n，{x，y，z}，整数]，ok=True，EvenQ@n公司&&长度@解算[x^2+4y^2+8z^2==n/2，{x，y，z}，整数]==2长度@解算[x^2+4y^2+32z^2==n/2，{x，y，z}，整数]，ok=True]；确定）]；表[长度@选择[范围[10^n]，同余Q]，{n，1，5}]
