登录

修订历史记录A329018型

(粗体、蓝色下划线文本是附加;褪色的红色下划线文本是删除.)

显示所有更改。
a(n)=p(1,n),其中p(x,n)是基于sqrt(3/2)的多项式的强可除序列,如A328644型.
(历史;已发布版本)
#5通过苏珊娜·库勒2019年12月27日星期五16:35:49 EST
状态

检验过的

经核准的

#4通过Jean-François Alcover公司2019年11月26日星期二03:07:12 EST
状态

提出

检验过的

#3通过克拉克·金伯利2019年11月23日星期六14:44:32 EST
状态

编辑

提出

#2通过克拉克·金伯利2019年11月23日星期六14:18:42 EST
名称

分配 对于 克拉克 金伯利(n个) = 第页(1,n个), 哪里 第页(x个,n个) 这个 坚强的 可分割性 序列 属于 多项式 基于 平方英尺(/2) 作为 在里面 A328644型.

数据

1, 7, 43, 259, 311, 9331, 55987, 335923, 2015539, 2418647, 72559411, 435356467, 2612138803, 15672832819, 18807399383, 564221981491, 3385331888947, 20311991333683, 121871948002099, 146246337602519, 4387390128075571, 26324340768453427, 157946044610720563

抵消

1, 2

评论

a(n)是一个强可除序列;即gcd(a(h),a(k))=a(gcd(h,k))。

例子

请参阅中的示例A328644型.

数学

c[poly_]:=如果[Head[poly]===次数,次数@@DeleteCase[(#1(Boole[MemberQ[#1,x]| | MemberQ[#1,y]| |成员Q[#1,z]]&)/@变量/@#1&)[List@@poly],0],poly];

r=平方英尺[3/2];f[x_,n_]:=c[系数[展开[(r x+r)^n-(r x-1/r)^n]];

压扁[Table[CoefficientList[f[x,n],x],{n,1,12}]];(*A328644型*)

表[f[x,n]/。x->0,{n,1,30}](*A329017型*)

表[f[x,n]/。x->1,{n,1,30}](*A329018型*)

表[f[x,n]/。x->2,{n,1,30}](*A329019型*)

(*彼得·J·C·摩西2019年11月1日*)

交叉参考

囊性纤维变性。A328644型,A329017型,A329019型.

关键词

分配

非n

作者

克拉克·金伯利2019年11月23日

状态

经核准的

编辑

#1通过克拉克·金伯利2019年11月1日星期五19:40:56 EDT
名称

分配给克拉克·金伯利

关键词

分配

状态

经核准的