用maple找数列的通项公司，倒推法，逐项求差分即可，点乘用seq来做

a := [7, 30, 77, 156, 275, 442]; b := [7, 9, 11, 13, 15, 17];
a.*b;
Error, invalid matrix/vector product
Typesetting:-mambiguous(aperiodsdot,

   Typesetting:-merror(invalid matrix/vector product))b

a[1];
7
3seq(a[k]/((2k+1)b[k]), k = 1 … 6);
1, 2, 3, 4, 5, 6
seq((1/3)k(2k+1)(2k+5), k = 1 … 6);
7, 30, 77, 156, 275, 442

实际操作的时候，是猜测性的调整得到的。maple就是这样一种编程命令可以调整的语言。这一点跟matlab不同。而她的数学公式的优美排版，也使他胜过mathmatica。唯一不足是函数定义之后封装的不够好，造成了不能像matlab一样形成让用户可以自行设计的软件包，放在github。

c := [11, 91, 378, 1122, 2717]; d := [11, 13, 15, 17, 19]; seq((65)c[k]/(d[k](d[k]-6)), k = 1 … 5);
6, 30, 84, 180, 330
seq((1/5(1/6))k(k+1)(2k+1)(2k+3)(2k+9), k = 1 … 5);
11, 91, 378, 1122, 2717
e := [13, 140, 714, 2508]; seq(3*(65)e[k]/(k(2k+1)(2k+11)(k+1)(k+2)(2k+3)), k = 1 … 4);
1, 1, 1, 1