%I#26 2022年7月15日08:28:59
%S 1,1、-1,1,0、-1,1,1,0,-1、-1,1、1,0、-1、-1、-1,1,2,3,2,0、-2、-3、-3、-2、,
%T-1,1,1,2,2,1,0,-1,-2,-2,-1,-1,1,2,4,6,8,9,9,7,4,0,-4,-7,-9,-9,
%U-8,-6,-4,-2,-1,1,2,4,6,9,11,13,12,9,5,0,-5,-9,-12,-13,-13,11,-9、-6、-4、-2,-1,1,2,4,7,11,15,20,24,27,28,27,23,17,9,0,-9
%N设P(N,x)=Product_{k=1..N}polcyclo(k,x),其中polcycol(k,x)表示第k个分圆多项式。序列给出了P(n,x)的系数数组。
%C P(n,x)的度为φ(1)+φ(2)+…+phi(n)=A002088(n),如果c(n,i)表示P(n,x)中x^i的系数:c(n、i)+c(n;A002088,n)-i)=0。
%H Alois P.Heinz,行n=0..60,扁平</a>
%e P(5,x)=x^10+2*x^9+3*x^8+3*x ^7+2*x ^6-2*x ^4-3*x ^3-3*x ^2-2*x-1,因此:1,2,3,2,0,-2,-3,-3,-2,-1是序列中的一个段。
%e三角形开始:
%电子[1]
%e[1,-1]
%e[1,0,-1]
%e[1,1,0,-1,-1]
%e[1,1,1,0,-1,-1,-1,-1]
%e[1、2、3、3、2、0、-2、-3、-3、-2、-1]
%e[1,1,2,2,2,1,0,-1,-2,-2,-1,-1]
%e[1、2、4、6、8、9、9、7、4、0、-4、-7、-9、.9、-8、-6、-4、-2、-1]
%e。。。
%pT:=n->(p->seq(系数(p,x,度(p)-i),i=0(
%p mul(numtheory[分圆](i,x),i=1..n):
%p序列(T(n),n=0..10);#_阿洛伊斯·海因茨,2022年7月15日
%o(PARI)行(n)=Vec(prod(k=1,n,polcyclo(k,x)));\\_米歇尔·马库斯,2019年5月24日
%Y参考A002088、A013595、A013596。
%Y行总和表示A000007。
%K符号,tabf
%0、20
%2002年10月20日,A _贝尼特·克洛伊特
%2019年5月24日,米歇尔·马库斯的E关键字选项卡
|