|
|
A320537型 |
| 由反对偶函数读取的平方数组,其中T(n,k)是第n个偶数j,其性质是sigma(j)的对称表示有k个部分。 |
|
三
|
|
|
2, 4, 10, 6, 14, 50, 8, 22, 70, 230, 12, 26, 98, 250, 1150, 16, 34, 110, 290, 1250, 5050, 18, 38, 130, 310, 1450, 5150, 22310, 20, 44, 154, 370, 1550, 5290, 23230, 106030, 24, 46, 170, 406, 1850, 5350, 23690, 106490, 510050, 28, 52, 182, 410, 2030, 5450, 24610, 107410, 513130, 2065450
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
表T(n,k)的10x10部分:
------------------------------------------------------------------
n\k |1 2 3 4 5 6 7 8 9 10。。。
------------------------------------------------------------------
1 | 2 10 50 230 1150 5050 22310 106030 510050 2065450
2 | 4 14 70 250 1250 5150 23230 106490 513130 2115950
3 | 6 22 98 290 1450 5290 23690 107410 520150 2126050
4 | 8 26 110 310 1550 5350 24610 110170 530150 2157850
5 | 12 34 130 370 1850 5450 25070 112010 530450 2164070
6 | 16 38 154 406 2030 5650 25250 112930 532450 2168150
7 | 18 44 170 410 2050 5750 25750 114770 534290 2176550
8 | 20 46 182 430 2150 6250 25990 115690 537050 2186650
9 | 24 52 190 434 2170 6350 26450 116150 540350 2216950
10| 28 58 238 470 2350 6550 26750 117070 544870 2219650
…(结束)
|
|
数学
|
sArray[b_,pMax_]:=模块[{list=Table[{},pMax],i,p},对于[i=2,i<=b,i+=2,p=Length[Select[SplitBy[a341969[i],#=0&], #[[1]]!=0&]]; 如果[p<=pMax&&Length[list[[p]]]<pMax,AppendTo[list[p]],i]]];列表]
秩[n]:=第n行[n-1](第[n-1]+1行)/2
部件[n]:=行[n-1]-秩[n]+2
a320537[sMatrix_,aD_]:=映射[sMatric[[rank[#],parts[#]]&,Range[aD(aD+1)/2]]/;矩阵Q[sMatrix]&&aD<=长度[sMattrix]
m2500000=数组[25000000,10](*需要计算整个10x10矩阵*)
a320537[m2500000,10](*序列数据a(1..55)*)
|
|
交叉参考
|
囊性纤维变性。A000203号,A071561号,A071562号,A236104型,A237270型,A237271号,A237593型,A238443型,A239663型,A239665型,A239929型,A240062型,A245092型,A262626型,A299174型,A319796型,A319802型,A341969型,3441970年,A341971飞机,A346969型,A348171型.
|
|
关键字
|
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|