一段程序，运行结果正确，但是为何有警告提示呢？

TSC999

我用 mathematica 写了一段程序，是针对本论坛【彩珠手串的配色计数】（见 http://bbs.emath.ac.cn/thread-9161-1-1.html）帖子的公式计算。
程序计算结果正确，但是有警告提示。为什么会有警告呢？如何能够消除警告？

1. Clear[s]; Array[s, {30, 30}]; (*定义二维数组 s(16,16) *)
   
2. For[q = 1, q <= 30, q++,     (* 计算二维数组 s 的值 *)
   
3. For[p = 1, p <= 30, p++,
   
4.   If[EvenQ[q], s[p, q] = 1/(2 q) \!\(
   
5. \*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(q\)]
   
6. \*SuperscriptBox[\(p\), \(GCD[q, i]\)]\) + ((p + 1) p^(q/2))/4,
   
7.     s[p, q] = 1/(2 q) \!\(
   
8. \*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(q\)]
   
9. \*SuperscriptBox[\(p\), \(GCD[q, i]\)]\) + p^((q + 1)/2)/2];]]
   
10. n =.; j = 30;
    
11. Array[x, 30];             (* 解方程：用数组 x[i] 作为未知数 *)
    
12.   For[n = 1, n <= j, n++,(* 算 1 至 30 珠 *)
    
13. Clear[x]; a = Table[x[k], {k, 1, j}] /.
    
14.    Solve[Table[\!\(
    
15. \*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\(x[i]
    
16. \*SuperscriptBox[\(k\), \(i\)]\)\) == s[k, n], {k, 1, j}],
    
17.     Table[x[k], {k, 1, j}]];
    
18. b = a[[1]];
    
19. m =.; ss = \!\(
    
20. \*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(n\)]\(b[\([\)\(i\)\(]\)]*
    
21. \*SuperscriptBox[\(m\), \(n + 1 - i\)]\)\);
    
22. Print["s(", n, ")=", Factor[Simplify[ss]]]]

复制代码

上述程序运行结果见图：