%I#16 2020年7月22日11:39:23

%S 1,1,1,1,1,1,1,1,1,1,1,1,,1,1,11,1,1,1，1,1,1,1-1,1,1,1，1,1,1,1,1,1，

%T 1,1,1,1,1,1,1,1,1,1,1,1,,1,1,11,1,1,1，1,1,1,1-1,1,1,1，1,1,1和1,1,1，

%U 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2

%N实域上x^N-1因式分解中出现的最高系数。

%C基于Mathematica帮助文件ref/Factor-整洁示例中的注释。

%C x ^n-1的第一个因式分解，其中a 2作为系数出现，n=105。

%C与A160338不同，请参阅此处的注释。

%H N.J.A.Sloane，N表，N=1..10000的A（N）</a>

%e a（4）=1，因为x^4-1=（x^2+1）（x+1）（x-1），这三项的最大系数是1。

%e第一次出现2是在n=105时，其中因子分解为：

%e（x-1）*（x^6+x^5+x^4+x^3+x^2+x+1）*（x ^4+x ^3+x^2+x+1）*

%e（x^24-x^23+x^19-x^18+x^17-x^16+x^14-x^13+x^12-x^11+x^10-x^8+x^7-x^6+x^5-x+1）*

%e（x^2+x+1）*（x^12-x^11+x^9-x^8+x^6-x^4+x^3-x+1）*

%e（x^8-x^7+x^5-x^4+x^3-x+1）*

%e（x^48+x^47+x^46-x^43-x^42-2*x^41-x^40-x^39+x^36+x^35+x^34+x^33+x^32+x^31-x^28-x^26-x^24-x^22-x^20+x^17+x^16+x^15+x^14+x^13+x^12-x^9-x^8-2*x^7-x^6-x^5+x^2+x+1）_N.J.A.Sloane，2008年4月18日

%t表[Max[Abs[Flatten[Coefficient List[Transpose[FactorList[x^i-1]][[1]，x]]]，{i，1，1000}]

%o（PARI）a（n）={my（f=因子（x^n-1））；vecmax（向量（#f~，k，vecmax（应用（x->abs（x），Vec（f[k，1]））））；}\\米歇尔·马库斯，2018年12月5日

%Y参考A013590、A013594。

%K非n

%O 1105号机组

%A_Ian Miller，2008年2月25日