1，1

第一个版本是错误的：j函数随着j的增大而增加。

行总和为：

{2，46，1058，24334，559682，12872686，296071778，6809650894，156621970562，

3602305322926，…}。

分形的最低水平图为：

a=表格[表格[如果[m<=n，如果[Mod[a[n，m]，23]==0，0，1]，0]，{m，1，10}]，{n，1，10}]；

ListDensityPlot[a，网格->假，轴->假]

n=1..39的n，a（n）表。

A（n，k）=A（n-1，k-1）+A（n-1，k）+（2*j+3）*素数[j]*A（n-2，k-1）。

{2} 你说，

{23，23}，

{2，1054，2}，

{12165，12165，2}，

{13133，532}，

{2，14101，6422240，6422240，14101，2}，

{215069、12779580、270482476、12779580、15069、2}，

{2，16037，19605432，3385203976，3385203976，19605432，16037，2}，

{2，17005，26899796，9577346548，137413443860，9577346548，26899796，17005，2}，

{217973466267219073670000，1782044310816782044310816190736700034662672179732}

清除[t，n，m，A，A]；j=9；

A[2，1]：=A[2，2]=素数[j]；

A[3，2]=2*素数[j]^2-4；

A[4，2]=A[4，3]=素数[j]^3-2；

A[n_1]：=2；A[n_1]：=2；

A[nˉ，kˉ]：=A[n-1，k-1]+A[n-1，k]+（2*j+3）*素数[j]*A[n-2，k-1]；

表[表[A[n，m]，{m，1，n}]，{n，1，10}]；

展平[%]表格[Sum[A[n，m]，{m，1，n}]，{n，1，10}]；

表[Sum[A[n，m]，{m，1，n}]/（2*Prime[j]^（n-1）），{n，1，10}]

上下文顺序：邮编：A128365 A326954飞机 A153654号*A242037号 A233692号 A084323

相邻序列：邮编：A153653 A153654号 A165535型*邮编：A153657 邮编：A153658 A153659号

不,未调整,表

罗杰·L·巴古拉2008年12月30日

经核准的