本网站由以下捐款支持:OEIS基金会.

欧拉变换

来自OeisWiki
跳转到:航行,搜索


这篇文章需要做更多的工作。

请帮助扩展它!


岩浆代码

在中尝试以下操作岩浆计算器.

欧拉变换:=功能()抄送:=[宇宙(a)|&+[宇宙(a)|日期[d] :中的d分区(n个)] :n英寸[1..#a]] ;b:=[c[1];对于n英寸[2..#c]nb编号:=c【n】+&+[宇宙(a)|c【k】*b[n-k] :k英寸[1..n-1]];断言IsDivisibleB依据(n中,n个);b[n]:=nb n div n;结束;返回b;end函数;欧拉逆变换:=功能(b条)抄送:=[整数()|n*b[n]-&+[整数()|自我c[k个] *b条[n-k] :k英寸[1..n-1]]哪里自我c自我() :n英寸[1..#b]];答:=[];对于[1..#c]中的n答[n]:=&+[整数()|莫比乌斯穆(n分度d) *c[d日] :中的d分区(n个)];断言a[n]mod n方程0;a[n]div(数字):=n;结束;返回a;end函数;断开连接的Euler:=功能(A类)断言存在((f)){ :我在[1..#A]|一个0};P<[x]>:=多项式环(整数(),f+#甲);抄送:=[P(P)|i le#A(乐#A)选择阿[i]其他的x(i) :我在[1..#A+f]];电子:=欧拉变换(C);日期:=[整数()|E[i]-C[i] :我在[1..#A+f]];电子:=[整数()|E[i]公司 :我在[1..#A]];返回D、 E;末端函数;