搜索: a073181-编号:a073191
|
|
|
|
1, 3, 4, 7, 6, 12, 8, 7, 13, 18, 12, 28, 14, 24, 24, 7, 18, 39, 20, 42, 32, 36, 24, 28, 31, 42, 13, 56, 30, 72, 32, 7, 48, 54, 48, 91, 38, 60, 56, 42, 42, 96, 44, 84, 78, 72, 48, 28, 57, 93, 72, 98, 54, 39, 72, 56, 80, 90, 60, 168, 62, 96, 104, 7, 84, 144, 68, 126, 96, 144, 72
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
n的立方核的除数之和(见第一个公式)。
|
|
链接
|
|
|
公式
|
与a(p)=1+p相乘,a(p^e)=1+p+p^2,e>1-克里斯蒂安·鲍尔2005年5月18日
Dirichlet g.f.:zeta(s)*zeta(s-1)/zeta(3s-3)-R.J.马塔尔2011年4月12日
和{k=1..n}a(k)~Pi^2*n^2/(12*Zeta(3))-瓦茨拉夫·科特索维奇2019年2月1日
|
|
例子
|
56的除数是{1,2,4,7,8,14,28,56},8=2^3和56=7*2^3不是立方,因此a(56)=1+2+4+7+14+28=56。
|
|
MAPLE公司
|
charFfree:=进程(n,t)局部f;对于ifactors(n)[2]中的f,如果op(2,f)>=t,则返回0;结束条件:;end-do:返回1;结束进程:
|
|
数学
|
nn=71;f[list_,i_]:=列表[[i]];a=表[If[Max[FactorInteger[n][All,2]]]<=2,n,0],{n,1,nn}];b=表[1,{nn}];选择[Table[DirichletConvolve[f[a,n],f[b,n]、n,m],{m,1,nn}],#>0&](*杰弗里·克雷策2015年3月22日*)
f[p_,e_]:=1+p+如果[e>1,p^2,0];a[1]=1;a[n_]:=倍@@f@@FactorInteger[n];数组[a,100](*阿米拉姆·埃尔达尔2020年9月14日*)
|
|
黄体脂酮素
|
(哈斯克尔)
a073185=总和。过滤器((==1)。a212793)。a027750_低
(PARI)a(n)={my(f=factor\\米歇尔·马库斯2015年2月6日
|
|
交叉参考
|
|
|
关键字
|
非n,多重
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 2, 2, 2, 4, 2, 2, 2, 4, 2, 5, 2, 4, 4, 2, 2, 4, 2, 5, 4, 4, 2, 5, 2, 4, 2, 5, 2, 8, 2, 2, 4, 4, 4, 5, 2, 4, 4, 6, 2, 8, 2, 5, 5, 4, 2, 5, 2, 4, 4, 5, 2, 4, 4, 6, 4, 4, 2, 11, 2, 4, 5, 2, 4, 8, 2, 5, 4, 8, 2, 5, 2, 4, 4, 5, 4, 8, 2, 6, 2, 4, 2, 11, 4, 4, 4, 6, 2, 10, 4, 5, 4, 4, 4, 5, 2, 4, 5, 5, 2, 8, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
公式
|
|
|
例子
|
56=7*2^3的无平方核是14=7*2,56的除数<=14是{1,2,4,7,8,14},因此a(56)=6。
|
|
数学
|
a[n_]:=除数和[n,1&,#<=倍@@FactorInteger[n][[;;,1]]&];数组[a,100](*阿米拉姆·埃尔达尔2022年7月9日*)
|
|
黄体脂酮素
|
(哈斯克尔)
a073180 n=长度[x|x<-a027750_当前n,x<=a007947 n]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 4, 7, 6, 12, 8, 7, 13, 18, 12, 28, 14, 24, 24, 7, 18, 39, 20, 42, 32, 36, 24, 36, 31, 42, 13, 56, 30, 72, 32, 7, 48, 54, 48, 91, 38, 60, 56, 50, 42, 96, 44, 84, 78, 72, 48, 36, 57, 93, 72, 98, 54, 39, 72, 64, 80, 90, 60, 168, 62, 96, 104, 7, 84, 144, 68, 126, 96, 144, 72
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
56=7*2^3的立方核是28=7*2 ^2,56的除数<=28是{1,2,4,7,8,14,28},因此a(56)=1+2+4+7+8+14+28=64。
|
|
数学
|
sdcfk[n_]:=模块[{cf=Times@@Flatten[表[#[[1]],#[[2]]]&/@({#[[1]),如果[#[2]]>2,2,#[2]]}&/@FactorInteger[n])]},总计[Select[Divisors[n],#<=cf&]]];数组[sdcfk,80](*哈维·P·戴尔2018年7月14日*)
|
|
黄体脂酮素
|
(PARI)a007948(n)=我的(f=系数(n));对于(i=1,#f~,f[i,2]=min(f[i、2],2));因子回收(f);
a(n)=总和(n,d,d*(d<=a007948(n)))\\米歇尔·马库斯2015年2月7日
|
|
交叉参考
|
|
|
关键字
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.004秒内完成
|