|
抵消
|
1,8
|
|
评论
|
如果我们将定义更改为a(p^k)=p+p^2+p^3+…+p^k-1(k>=1)我们得到(-1)σ(n),A046090型.
|
|
链接
|
|
|
示例
|
a(5)=-1,a(9)=3-1=2,a(45)=(-1)*2=-2。
|
|
MAPLE公司
|
pksum:=proc(L)局部p,k;p:=op(1,L);k:=op(2,L);(p^k-p)/(p-1)-1;结束时间:A126690号:=proc(n)局部pe,a;如果n=1,则返回(1);否则a:=1;pe:=系数(n)[2];对于pe中的d,做a:=a*pksum(d);od:返回(a);fi;结束:对于从1到120的n,执行printf(“%d,”,A126690号(n) );日期:#R.J.马塔尔2008年8月8日
|
|
数学
|
a[1]=1;
a[n_]:=a[n]=乘积[{p,k}=pk;总计[p^范围[k-1]]-1,{pk,因子整数[n]}];
|
|
黄体脂酮素
|
(方案,带有备忘录-宏定义)
;; 辅助函数add实现sum_{i=lowlim..uplim}intfun(i)
(define(add intfun lowlim-uplim)(let sumloop((i lowlim)(res 0))(cond((>i uplim)res)(else(sumloop(1+i)(+res(intfun i))))))
|
|
交叉参考
|
|
|
关键词
|
签名,多重
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|