|
抵消
|
0.2个
|
|
评论
|
|
|
链接
|
|
|
公式
|
|
|
黄体脂酮素
|
(PARI)
分配(234567890);
默认值(primelimit,2^22)
uplim_for_13928=13123111;
v013928=矢量(uplim_for_13928);A013928号(n) =v013928[n];
v013928[1]=0;n=1;当((n<uplim_for_13928),如果(issquarefere(n),v013928[n+1]=v013928[n]+1,v012928[n+1]=v012928[n]);n++);
A019565号(n) ={factorback(Mat(向量(如果(n,#n=vecextract(二进制(n),“-1..1”)),j,[素数(j),n[j]])~))};\\此函数来自M.F.哈斯勒
对于(n=0478,写入(“b246353.txt”,n,“”,A246353型(n) );
(方案)(定义(A246353型n) (让循环(n n)(i 1)(p 1))(cond((0?n))(A013928号(+1 p))((奇数?n)(回路(/(-n 1)2)(+1 i)(*p(A000040型i) ))(其他(回路(/n 2)(+1 i)p)))
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|