搜索: a000898-编号:a000898
|
|
|
|
1, 2, 6, 2, 40, 32, 464, 272, 7040, 4864, 136448, 87808, 3177472, 2123776, 86861824, 57128960, 2720112640, 1806049280, 96095928320, 63587041280, 3778819358720, 2507078533120, 163724570132480, 108568842403840, 7748467910901760
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
链接
|
|
|
配方奶粉
|
对于n>=2,如果n是奇数,a(n)=a(n-1)-(n-1编辑人罗伯特·伊斯雷尔,2018年6月20日
|
|
MAPLE公司
|
f: =proc(n)选项记忆;如果n::奇数,则procname(n-1)-(n-1
f(0):=1:f(1):=2:
|
|
数学
|
a[0]=1;a[1]=2;a[n]:=a[n]=如果[Mod[n,2]==1,a[n-1]-(n-1)*a[n-2],2*(a[n-1]+(n-1
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A047974号
|
| a(n)=a(n-1)+2*(n-1”)*a(n-2)。 |
|
+10 56
|
|
|
1, 1, 3, 7, 25, 81, 331, 1303, 5937, 26785, 133651, 669351, 3609673, 19674097, 113525595, 664400311, 4070168161, 25330978113, 163716695587, 1075631907655, 7296866339961, 50322142646161, 356790528924523, 2570964805355607, 18983329135883665, 142389639792952801, 1091556096587136051
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
与部分有序集相关Detlef Pauly(dettodet(AT)yahoo.de),2003年9月25日
GL_n中部分置换矩阵P的个数,其中P^2=0。或者,上三角矩阵的Borel群的轨道数通过共轭作用于GL_n中矩阵M的集合M^2=0.-布赖恩·罗斯巴赫(Rothbach(AT)math.berkeley.edu),2004年4月16日
使用{1..n}元素一次以形成序列集合的方法的数量,每个序列的长度为1或2Bob Proctor,2005年4月18日
这也是在元素的(可选)反转与标签置换相结合的联合操作下定义等价时,排列n对元素的等价方法的子集数,子集映射到自身-罗斯·德鲁2008年3月16日
a(n)也是区间-oo上密度exp(-(x-1)^2/4)/(2*sqrt(Pi))度量的n阶矩。。哦-格鲁·罗兰2011年3月26日
第n项给出了S_n^B中的定点无对合数,即集合{-n,…,-1,1,2,…,n}上的置换群-麦特瓦森2012年7月26日
对于所有n和k,a(n+k)==a(n)(mod k)。因此,对于每个k,取模k的序列a(n)是周期序列,并且精确的周期除以k。A115329号.
更一般地说,对于任何形式为f(x)*exp(x*g(x))的f.序列,都具有相同的可除性,其中f(x。请参阅Bala链接以获取证据。(完)
|
|
链接
|
Jonathan Burns、Egor Dolzhenko、Natasa Jonoska、Tilahun Muche和Masahico Saito,与DNA重组相关的具有刚性顶点的四正则图《离散应用数学》,第161卷,第10-11期,2013年7月,第1378-1394页;备选副本.
乔纳森·伯恩斯和蒂拉洪·穆切,不可约双出现词的计数,arXiv预印本arXiv:1105.2926[math.CO],2011。
Samuele Giraudo,装饰派上的梳代数结构,arXiv:1709.08416[math.CO],2017年;和也,《形式幂级数与代数组合学》,Séminaire Lotharingien de Combinatoire,78B.152017,第8页。
T.Halverson和M.Reeks,图代数的Gelfand模型,arXiv预印本arXiv:1302.6150[math.RT],2013。
A.Khruzin,弦图枚举,arXiv:math/0008209[math.CO],2000年。
J.Quaintance和H.Kwong,彩色多集的排列和组合,JIS 13(2010)#10.2.6。
|
|
配方奶粉
|
例如:exp(x^2+x)-伦·斯迈利2001年12月11日
a(n)=和{k=0..n}C(k,n-k)*n/k-保罗·巴里2007年3月29日
a(n)=和{k=0..层(n/2)}C(n,2k)*(2k)/k-保罗·巴里2008年2月11日
G.f.:1/(1-x-2*x^2/(1-x-4*x^2/(1-x-6*x^ 2/(1-……(连分数))-保罗·巴里2009年4月10日
例如:Q(0);Q(k)=1+(x^2+x)/(2*k+1-(x^2+x)*(2*k+1)/((x^2+x)+(2*k+2)/Q(k+1)));(续分数)-谢尔盖·格拉德科夫斯基2011年11月24日
a(n)~2^(n/2-1/2)*exp(平方码(n/2)-n/2-1/8)*n^(n/2)-瓦茨拉夫·科特索维奇2012年10月8日
例如:1+x*(E(0)-1)/(x+1),其中E(k)=1+(1+x)/(k+1)/(1-x/(x+1/E(k+1;(续分数)-谢尔盖·格拉德科夫斯基2013年1月26日
a(n)=i^(-n)*H_{n}(i/2),其中i是虚单位,H_{n}是n次Hermite多项式-艾莉莎·伯恩斯和C.Vignat,2013年1月31日
例如:-Q(0)/x,其中Q(k)=1-(1+x)/(1-x/(x-(k+1)/Q(k+1;(续分数)-谢尔盖·格拉德科夫斯基2013年3月6日
G.f.:1/Q(0),其中Q(k)=1+x*2*k-x/(1-x*(2*k+2)/Q(k+1));(续分数)-谢尔盖·格拉德科夫斯基2013年4月17日
例如:E(0)-1-x-x^2,其中E(k)=2+2*x*(1+x)-8*k^2+x^2*(1+x)^2x(2*k+3)*(2*k-1)/E(k+1);(续分数)-谢尔盖·格拉德科夫斯基2013年12月21日
例如:产品{k>=1}1/(1+(-x)^k)^(mu(k)/k)-伊利亚·古特科夫斯基2019年5月26日
|
|
MAPLE公司
|
seq(添加(n!/(n-2*k)*k!),k=0..层(n/2),n=0..30);#Detlef Pauly(dettodet(AT)yahoo.de),2001年11月15日
with(combstruct):seq(count(([S,{S=Set(Union(Z,Prod(Z,Z)))},labeled],size=n)),n=0..30);#Detlef Pauly(dettodet(AT)yahoo.de),2003年9月25日
|
|
数学
|
范围[0,23]*系数列表[级数[Exp[x*(1-x^2)/(1-x)],{x,0,23}],x]-(*零入侵拉霍斯2007年3月23日*)
表[I^(-n)*HermiteH[n,I/2],{n,0,23}]-(*艾莉莎·伯恩斯和C.Vignat,2013年1月31日*)
|
|
黄体脂酮素
|
(MATLAB)N=18;A=零(N,1);n=1:n;a=阶乘(n);s=0;k=0;而k<=楼层(n/2);b=阶乘(n-2*k);c=阶乘(k);s=s+a/(b*c);k=k+1;结束;A(n)=秒;结束;显示(A);%罗斯·德鲁2008年3月16日
(PARI)x='x+O('x^66);Vec(塞拉普拉斯语(exp(x^2+x))\\约尔格·阿恩特2013年5月4日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A300121型
|
| 正规广义Young表的个数,形状为Heinz数为n的整数分区,所有行和列弱增加,所有区域连接斜分区。 |
|
+10 39
|
|
|
1, 1, 2, 2, 4, 5, 8, 4, 11, 12, 16, 12, 32, 28, 31, 8, 64, 31, 128, 33, 82, 64, 256, 28, 69, 144, 69, 86, 512, 105, 1024, 16, 208, 320, 209, 82, 2048, 704, 512, 86, 4096, 318, 8192, 216, 262, 1536, 16384, 64, 465, 262, 1232, 528, 32768, 209, 588, 245, 2912, 3328
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
连接的斜交分区的图需要连接为一个polyomino,但可以有空行或空列。形状y的广义Young表是用正整数替换y的Ferrers图中的点而得到的数组。如果表的条目跨越正整数的初始区间,则表是正常的。整数分区的Heinz数(y_1,…,y_k)是素数(y_1)**质数(yk)。
|
|
链接
|
|
|
例子
|
a(9)=11表aux:
1 1
1 1
.
2 1 1 1 1 1 1 2
1 1 1 2 2 2 1 2
.
1 1 1 2 1 2 1 3
2 3 1 3 3 3 2 3
.
1 2 1 3
3 4 2 4
|
|
数学
|
undcon[y_]:=选择[Tuples[Range[0,#]&/@y],Function[v,GreaterEqual@@v&With[{r=Select[Range[Length[y]],y[[#]]=!=v[[#]&]},Or[Length[r]<=1,And@@Table[v[i]]<y[i+1]],{i,Range[Min@@r,Max@@r-1]}]]]]];
cos[y_]:=cos[y]=With[{sam=Most[undcon[y]]},If[Length[sam]==0,If[Cotal[y]===0,{{}},{}],Join@@Table[Prepend[#,y]&/@cos[sam[[k]]],{k,1,Length[sam]}]];
素数MS[n_]:=如果[n===1,{},平坦[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
表[Length[cos[Reverse[primeMS[n]]],{n,50}]
|
|
交叉参考
|
囊性纤维变性。A000085号,A000898号,A056239号,A006958号,A138178号,A153452号,A238690型,A259479号,A259480型,A296150型,A296561型,A297388型,A299699型,A299925型,A299926型,A300056型,A300060型,A300118型,A300120型,A300122型,A300123型,A300124型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A000899号
|
| 具有特定对称组的n×n板上rook问题的解的数量(有关详细信息,请参阅Robinson)。 (原名M4645 N1987)
|
|
+10 23
|
|
|
0, 0, 0, 1, 9, 70, 571, 4820, 44676, 450824, 4980274, 59834748, 778230060, 10896609768, 163456629604, 2615335902176, 44460874280032, 800296440705472, 15205636325496568, 304112744618157872, 6386367741011250672
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,5
|
|
参考文献
|
L.C.Larson,《本质上不同的非攻击车安排的数量》,J.Recreat。数学。,7(1974年第3期),约180-181页。
R.W.Robinson,主教的计数安排,《组合数学IV》(阿德莱德,1975年)第198-214页,Lect。数学笔记。,560 (1976).
N.J.A.Sloane,《整数序列手册》,学术出版社,1973年(包括该序列)。
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
|
|
链接
|
L.C.Larson,本质上不同的非攻击车安排数量,J.重建。数学。,7(1974年第3期),约180-181页。【仅对第180页和第181页进行注释性扫描】
罗宾逊,主教的计数安排第198-214页,《组合数学IV》(阿德莱德,1975),Lect。数学笔记。,560 (1976). (带注释的扫描副本)
|
|
配方奶粉
|
有关渐近性,请参阅Robinson论文。
|
|
MAPLE公司
|
|
|
数学
|
a[n]:=((n+1)!-(2*层[(n+1)/2])!!-2*和[二项式[n+1,2*k]*(2*k-1)!!,{k,0,(n+1)/2}]+2*总和[2^k*BellB[k]*StirlingS1[楼层[(n+1;表[a[n],{n,0,20}](*Jean-François Alcover公司,2013年12月23日,来自显式公式*)
|
|
交叉参考
|
|
|
关键词
|
非n,美好的,容易的
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A299968型
|
| 大小为n的正规广义杨表的数量,所有行和列都严格增加。 |
|
+10 16
|
|
|
1, 1, 2, 5, 15, 51, 189, 753, 3248, 14738, 70658, 354178, 1857703, 10121033, 57224955, 334321008, 2017234773, 12530668585, 80083779383, 525284893144, 3533663143981, 24336720018666, 171484380988738, 1234596183001927, 9075879776056533, 68052896425955296
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
形状y的广义Young表是用正整数替换y的Ferrers图中的点而得到的数组。如果表的条目跨越正整数的初始区间,则表是正常的。
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(4)=15表格:
1 2 3 4
.
1 2 3 1 2 4 1 3 4 1 2 3 1 2 3
4 3 2 2 3
.
1 2 1 3 1 2
3 4 2 4 2 3
.
1 2 1 3 1 2 1 4 1 3
3 2 2 2 2
4 4 3 3 3
.
1
2
三
4
|
|
数学
|
unddis[y_]:=删除事例[y-#,0]&/@Tuples[Table[If[y[i]]>追加[y,0][i+1]],{0,1},{0}],{i,长度[y]}]];
dos[y_]:=与[{sam=Rest[unddis[y]]},如果[Length[sam]===0,如果[Total[y]===0,{{}},{}],连接@@Table[Prepend[#,y]&/@dos[sam[[k]]],{k,1,Length[sam]}]];
表[Sum[Length[dos[y]],{y,Integer Partitions[n]}],{n,1,8}]
|
|
交叉参考
|
囊性纤维变性。A000085号,A000898号,A001221号,A005117号,A006958号,A015128号,A138178号,A238121号,A238690型,A285175型,A296561型,A297388型,A299926型,A300120型,A300122型.
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 2, -4, -20, -8, 184, 464, -1648, -10720, 8224, 230848, 280768, -4978816, -17257600, 104891648, 727511296, -1901510144, -28538404352, 11377556480, 1107214478336, 1759326697472, -42984354695168, -163379084079104
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
链接
|
|
|
配方奶粉
|
a(n)=和{m=0..n}A060821型(n,m)=H(n,1),其中埃尔米特多项式为H(n,x)。
例如:exp(-x*(x-2))。
a(n)=2*(a(n-1)-(n-1)*a(n-2))-罗杰·巴古拉2006年9月11日
a(n)=2^n*U(-n/2,1/2,1),其中U是合流超几何函数-本尼迪克特·欧文,2017年10月17日
例如:产品{k>=1}((1+x^k)/(1-x^k))^(mu(k)/k)-伊利亚·古特科夫斯基2019年5月26日
|
|
MAPLE公司
|
赫米特H(n,1);
简化(%);
|
|
数学
|
表[2^n超几何U[-n/2,1/2,1],{n,0,23}](*本尼迪克特·欧文2017年10月17日*)
使用[{nmax=50},系数列表[Series[Exp[x*(2-x)],{x,0,nmax}],x]*范围[0,nmax]!](*G.C.格鲁贝尔,2018年6月8日*)
|
|
黄体脂酮素
|
(Python)
来自sympy import hermite,Poly
定义a(n):返回和(Poly(hermite(n,x),x).all_coeffs())#因德拉尼尔·戈什2017年5月26日
(PARI)x='x+O('x^30);Vec(塞拉普拉斯语(exp(-x*(x-2)))\\G.C.格鲁贝尔,2018年6月8日
(PARI)a(n)=坡缕石(n,1)\\米歇尔·马库斯,2018年6月9日
(岩浆)m:=30;R<x>:=PowerSeriesRing(基本原理(),m);b: =系数(R!(Exp(x*(2-x)));[阶乘(n-1)*b[n]:[1..m]]中的n//G.C.格鲁贝尔,2018年6月8日
|
|
交叉参考
|
|
|
关键词
|
签名,容易的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A000903号
|
| 在nXn板上放置n辆非攻击车直至板的旋转和反射的不公平方式的数量。 (原名M1761 N0698)
|
|
+10 13
|
|
|
1, 1, 2, 7, 23, 115, 694, 5282, 46066, 456454, 4999004, 59916028, 778525516, 10897964660, 163461964024, 2615361578344, 44460982752488, 800296985768776, 15205638776753680, 304112757426239984, 6386367801916347184
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
参考文献
|
L.C.Larson,《本质上不同的非攻击车安排的数量》,J.Recreat。数学。,7(1974年第3期),约180-181页。
阅读,个人交流。
N.J.A.Sloane,《整数序列手册》,学术出版社,1973年(包括该序列)。
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
Z.Stankova和J.West,一类新的Wilf等价置换,J.Algeb。《合并》,第15卷(2002年),第271-290页。
|
|
链接
|
L.C.Larson,本质上不同的非攻击车安排数量,J.重建。数学。,7(1974年第3期),约180-181页。【仅对第180页和第181页进行注释性扫描】
罗宾逊,主教的计数安排第198-214页,《组合数学IV》(阿德莱德,1975),Lect。数学笔记。,560 (1976).
罗宾逊,主教的计数安排第198-214页,《组合数学IV》(阿德莱德,1975),Lect。数学笔记。,560 (1976). (带注释的扫描副本)
兹维兹德琳娜·斯坦科瓦·弗伦克尔和朱利安·韦斯特,一类新的Wilf等价置换,arXiv:math/0103152[math.CO],2001年。见图9。
|
|
配方奶粉
|
有关渐近性,请参阅Robinson论文。
|
|
例子
|
当n=4时,这7个溶液可以取为1234124313241423143221432413。
|
|
MAPLE公司
|
Maple程序A000142号,A037223号,A122670型,A001813号,A000085号,A000898号,A000407号,A000902号,A000900型,A000901号,A000899号,A000903号
R: =proc(n)局部m;如果n mod 4=2或n mod 4=3,则返回(0);fi;m: =地板(n/4);(2*m)/米!;结束;#给予A122670型,A001813号
未保护(D);D: =proc(n)选项记忆;如果n<=1,则1其他D(n-1)+(n-1”)*D(n-2);fi;结束;#给予A000085号
B: =proc(n)选项记忆;如果n<=1,则返回(1);fi;如果n mod 2=1,则返回(B(n-1));fi;2*B(n-2)+(n-2;结束;#给予A000898号(折叠起来)
未保护(γ);伽马:=n->如果n<=1,则返回(0),否则返回(G(n)-B(n)-R(n))/4;fi;编号给予A000901号,折叠起来
非保护(sigma);σ:=n->如果n<=1,则返回(1);否则,P(n)/8+G(n)+8+R(n)/4+D(n)/4;fi#给予A000903号
|
|
数学
|
c[n_]:=楼层[n/2]!2^楼层[n/2];
r[n_]:=如果[Mod[n,4]>1,0,m=楼层[n/4];如果[m==0,1,(2 m)!/m!]];
d[0]=d[1]=1;d[n]:=d[n]=(n-1)d[n-2]+d[n-1];
a[1]=1;a[n]:=(n!+c[n]+2r[n]+2d[n])/8;
|
|
交叉参考
|
|
|
关键词
|
非n,美好的
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A000900型
|
| 具有特定对称组的n×n板上rook问题的解的数量(有关详细信息,请参阅Robinson)。 (原名M1964 N0777)
|
|
+10 12
|
|
|
0, 0, 0, 1, 2, 10, 28, 106, 344, 1272, 4592, 17692, 69384, 283560, 1191984, 5171512, 23087168, 105883456, 498572416, 2404766224, 11878871456, 59975885856, 309439708352, 1628919330208, 8746079933568, 47840206525056
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,5
|
|
参考文献
|
L.C.Larson,《本质上不同的非攻击车安排的数量》,J.Recreat。数学。,7(1974年第3期),约180-181页。
R.W.Robinson,主教的计数安排,《组合数学IV》(阿德莱德,1975年)第198-214页,Lect。数学笔记。,560 (1976).
N.J.A.Sloane,《整数序列手册》,学术出版社,1973年(包括该序列)。
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
|
|
链接
|
L.C.Larson,本质上不同的非攻击车安排数量,J.重建。数学。,7(1974年第3期),约180-181页。【仅对第180页和第181页进行注释性扫描】
罗宾逊,主教的计数安排第198-214页,《组合数学IV》(阿德莱德,1975),Lect。数学笔记。,560 (1976). (带注释的扫描副本)
|
|
配方奶粉
|
有关渐近性,请参阅Robinson论文。
|
|
MAPLE公司
|
|
|
数学
|
a85[n_]:=和[(2k)!/k!/2^k二项式[n,2k],{k,0,n/2}];a898[n_]:=总和[2^k*StirlingS1[n,k]*BellB[k],{k,0,n}];a[n_]:=(a85[n]-a898[楼层[n/2]])/2;a[1]=0;表[a[n],{n,0,25}](*Jean-François Alcover公司2011年12月13日,配方后*)
|
|
关键词
|
非n,容易的,美好的
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
2007年3月88日
|
| n的严格整数分区数,其中偶数部分出现在偶数位置和奇数位置的频率相同。 |
|
+10 12
|
|
|
1, 1, 0, 1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 8, 10, 12, 14, 16, 19, 23, 26, 30, 35, 42, 47, 54, 62, 73, 82, 94, 107, 124, 139, 158, 179, 206, 230, 260, 293, 334, 372, 420, 470, 532, 591, 664, 740, 835, 924, 1034, 1148, 1288, 1422, 1588, 1756, 1962, 2161, 2404
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,7
|
|
链接
|
|
|
例子
|
a(9)=3个严格分区:(9),(621),(531)。缺失的有:(81)、(72)、(63)、(54)、(432)。
|
|
数学
|
cobal[y_]:=总和[(-1)^x,{x,连接@@位置[y,_?EvenQ]}];
表[Length[Select[Integer Partitions[n],cobal[#]===0&&UnsameQ@@#&]],{n,0,40}]
|
|
交叉参考
|
囊性纤维变性。A000712号,A000898号,A001405号,A026010型,A045931号,A063886号,A097613号,A130780号,A171966号,A239241型,A300787型,A300789型.
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 0, 1, 1, 0, 0, 1, 0, 2, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 2, 1, 0, 0, 3, 0, 3, 1, 1, 0, 0, 0, 0, 1, 0, 2, 1, 0, 2, 1, 0, 0, 1, 0, 0, 1, 0, 1, 5, 0, 0, 1, 1, 0, 3, 0, 2, 0, 0, 0, 1, 1, 3, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 4, 1, 0, 0, 1, 0, 5, 1, 0, 2, 3, 0, 2, 1, 1, 1, 5, 0, 0, 1, 0, 0, 0, 0, 0, 3, 1, 0, 0, 0, 0, 0
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,9
|
|
评论
|
整数分区的Heinz数(y_1,…,y_k)是素数(y_1)**质数(yk)。
|
|
链接
|
|
|
MAPLE公司
|
h: =proc(l,f)选项记忆;局部k;如果min(l[])>0,则
`如果`(nops(f)=0,1,h(map(x->x-1,l[1..f[1]]),subsop(1=[][],f))
nops(l)中的k为else,而l[k]>0由-1做od;
`如果`(nops(f)>0且f[1]>=k,h(底土(k=2,l),f),0)+
`如果`(k>1且l[k-1]=0,h(底土(k=1,k-1=1,l),f),0)
fi(菲涅耳)
结束时间:
g: =l->`if`(add(`if'(l[i]::奇数,(-1)^i,0),i=1..nops(l))=0,
`如果`(l=[],1,h([0$l[1],底土(1=[][],l)),0):
a: =n->g(排序(映射(i->numtheory[pi](i[1])$i[2],ifactors(n)[2]),`>`)):
|
|
数学
|
h[l_,f_]:=h[l,f]=模[{k},如果[Min[l]>0,如果[Length[f]==0,1,h[Map[Function[x,x-1],l[[Range@f[[1]]]],ReplacePart[f,1->Nothing]],对于[k=长度[l],l[k]]>0,k--];如果[Length[f]>0&&f[[1]]>=k,h[ReplacePart[l,k->2],f],0]+如果[k>1&&l[[k-1]]==0,h[ReplacePart[1,{k->1,k-1->1}],f]、0]];
g[l]:=If[Sum[If[OddQ@l[i]],(-1)^i,0],{i,1,Length[l]}]==0,If[l=={},1,h[表[0,l[[1]]],替换部分[l,1->Nothing]],0];
a[n_]:=g[Reverse@Sort[Flatten[Map[Function[i,Table[PrimePi[i[[1]]],i[[2]]]、FactorInteger[n]]]];
|
|
交叉参考
|
囊性纤维变性。A000085号,A000720号,A000712号,A000898号,A001222号,A004003号,A056239号,A099390号,A138178号,153452英镑,A238690型,A296150型,A296188型,A299925型,A299926型,A300056型,A300061型,A304662型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.034秒内完成
|