显示找到的16个结果中的1-10个。
1, 1, 0, 9, 0, 4, 9, 6, 7, 7, 9, 9, 8, 7, 3, 7, 3, 3, 6, 3, 4, 5, 2, 8, 8, 5, 8, 7, 7, 8, 1, 6, 7, 1, 7, 6, 6, 0, 0, 9, 7, 5, 2, 6, 2, 9, 6, 7, 7, 3, 0, 3, 9, 8, 3, 7, 1, 4, 2, 4, 9, 9, 7, 3, 5, 8, 1, 3, 2, 8, 8, 6, 7, 6, 1, 5, 7, 7, 5, 0, 9, 3, 4, 8, 7, 3, 2, 1, 3, 8, 2, 6, 8, 1, 7, 8, 1, 0, 0, 9, 4, 1, 3, 0, 8
配方奶粉
等于乘积{p素数}(1+1/(3*(p-1)*p^2))。
例子
1.109049677998737336345288587781671766009752629677303...
数学
$MaxExtraPrecision=1000;m=1000;f[p]:=1+1/(3*(p-1)*p^2);c=静止[系数列表[级数[Log[f[1/x]],{x,0,m}],x]];RealDigits[Exp[NSum[Indexed[c,n]*(PrimeZetaP[n]),{n,2,m},NSumTerms->m,WorkingPrecision->m]],10,100][1]
黄体脂酮素
(PARI)prodeulerrat(1+1/(3*(p-1)*p^2))
9, 3, 9, 9, 7, 4, 3, 5, 2, 1, 7, 6, 4, 7, 7, 0, 7, 8, 4, 7, 0, 4, 4, 2, 5, 6, 2, 3, 8, 6, 0, 2, 5, 7, 2, 6, 7, 6, 9, 8, 4, 2, 3, 1, 0, 9, 7, 7, 9, 9, 6, 7, 3, 3, 0, 5, 9, 8, 1, 3, 8, 2, 1, 6, 7, 4, 6, 1, 3, 5, 9, 5, 5, 2, 0, 4, 4, 8, 0, 1, 3, 5, 9, 2, 5, 3, 1, 3, 0, 3, 8, 4, 8, 1, 0, 5, 1, 2, 9, 4, 6, 6, 6, 7, 1
配方奶粉
等于乘积{p素数}(-(p-1)*(1+4*p+6*p^2*log(1-1/p))/(2*p^2))。
例子
0.939974352176477078470442562386025726769842310977996...
数学
$MaxExtraPrecision=1000;m=1000;f[p]:=-(p-1)*(1+4*p+6*p^2*Log[1-1/p])/(2*p^2);c=静止[系数列表[级数[Log[f[1/x]],{x,0,m}],x]];RealDigits[Exp[NSum[索引[c,n]*(PrimeZetaP[n]),{n,2,m},NSumTerms->m,WorkingPrecision->m]],101100][[1]]
1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1
配方奶粉
如果e<=2,则与a(p^e)=1相乘;如果e>=3,则与0相乘-R.J.马塔尔2012年12月17日
和{n>0}a(n)/n^s=Product{p素数}(1+p^(-s)+p^(-2s))=zeta(s)/zeta(3s)-拉尔夫·斯蒂芬2013年7月7日
Dirichlet g.f.:zeta(s)/zeta(3*s)-阿米拉姆·埃尔达尔2022年12月27日
数学
表[Boole[Max[FactorInteger[n][[All,2]]<3],{n,1,100}](*杰弗里·克雷策2015年2月25日*)
黄体脂酮素
(哈斯克尔)
a212793=cubeFree a000040_list 0 0其中
cubeFree ps'@(p:ps)q e x
|e>2=0
|x==1=1
|r>0=立方Free ps p 0 x
|否则=cubeFree ps'p(e+1)x'其中(x',r)=divMod x p
(PARI)a(n)={f=因子(n);对于(i=1,#f~,如果(f[i,2])>=3,返回(0););返回(1);}\\米歇尔·马库斯,2015年2月10日
交叉参考
囊性纤维变性。A000005号,A000007号,A004709号,A008966号,A046099型,A053864号,A060431号,A088453号,112526英镑,124010英镑,A307423型.
i*j*k=n,i,j,k>=0且gcd(i,j、k)<=1的有序三元组(i,j,k)的数量。
+10 11
1, 1, 3, 3, 6, 3, 9, 3, 9, 6, 9, 3, 18, 3, 9, 9, 12, 3, 18, 3, 18, 9, 9, 3, 27, 6, 9, 9, 18, 3, 27, 3, 15, 9, 9, 9, 36, 3, 9, 9, 27, 3, 27, 3, 18, 18, 9, 3, 36, 6, 18, 9, 18, 3, 27, 9, 27, 9, 9, 3, 54, 3, 9, 18, 18, 9, 27, 3, 18, 9, 27, 3, 54, 3, 9, 18, 18
配方奶粉
如果n=p_1^e_1*p_2^e_2**p_r^e_r则a(n)=产品{i=1..r}3*e_i。
Dirichlet g.f.:zeta(s)^3/zeta(3*s)。(结束)
与a(p^e)=3*e相乘,p素数且e>0。
Dirichlet逆b(n),n>0,与b(1)=1相乘,对于p素数和e>0:b(p^e)=0,如果e mod 3=0,否则b(p*e)=3*(-1)^(e mod 3)。
MAPLE公司
带有(数字理论):
b: =proc(n,t,g)选项记忆`如果`(t=0,
`如果`(igcd(n,g)=1,1,0),加上(b(n/d,t-1,
igcd(g,d),d=除数(n))
结束时间:
a: =n->`如果`(n=0,1,b(n,2,0)):
数学
f[n_]:=长度[Complement[Union[Flatten[Table[If[i*j*k==n&&GCD[i,j,k]<=1,{i,j、k}],{i、0、n},{j,0,n}、{k、0、n}],2],{Null}]];[表[f[n],{n,0,100}]
a[0]=a[1]=1;a[n_]:=倍@@(3*Last[#]&/@FactorInteger[n]);数组[a,100,0](*阿米拉姆·埃尔达尔2020年9月14日*)
黄体脂酮素
(Python)
从数学导入prod
来自sympy导入因子
定义A226602型(n) :如果n为1,则返回prod(因子(n).values()中e的3*e)#柴华武2022年12月26日
交叉参考
囊性纤维变性。A000005号,A007427号,A008836号,A034444号,A056624号,A073184号,A092520号,A100450型,A212793型,A226357型,226359英镑.
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
配方奶粉
与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日
1, 2, 2, 3, 2, 4, 2, 3, 3, 4, 2, 6, 2, 4, 4, 3, 2, 6, 2, 6, 4, 4, 2, 7, 3, 4, 3, 6, 2, 8, 2, 3, 4, 4, 4, 9, 2, 4, 4, 7, 2, 8, 2, 6, 6, 4, 2, 7, 3, 6, 4, 6, 2, 6, 4, 7, 4, 4, 2, 12, 2, 4, 6, 3, 4, 8, 2, 6, 4, 8, 2, 11, 2, 4, 6, 6, 4, 8, 2, 8, 3, 4, 2, 12, 4, 4, 4, 7, 2, 12, 4, 6, 4, 4, 4, 7, 2, 6, 6, 9, 2, 8
例子
56=7*2^3的立方核是28=7*2 ^2,56的除数<=28是{1,2,4,7,8,14,28},因此a(56)=7。
数学
表[Function[k,DivisorSum[n,1&,#<=k&]]@Apply[Times,FactorInteger[n]/。{p,e}/;p>0:>p^最小值[e,2]],{n,102}](*迈克尔·德弗利格2017年7月18日*)
黄体脂酮素
(PARI)a007948(n)=我的(f=系数(n));对于(i=1,#f~,f[i,2]=min(f[i、2],2));因子回收(f);
a(n)=我的(cfk=a007948(n));sumdiv(n,d,d≤cfk)\\米歇尔·马库斯,2015年5月14日
1, 2, 2, 3, 2, 4, 2, 4, 3, 4, 2, 6, 2, 4, 4, 4, 2, 6, 2, 6, 4, 4, 2, 8, 3, 4, 4, 6, 2, 8, 2, 4, 4, 4, 4, 9, 2, 4, 4, 8, 2, 8, 2, 6, 6, 4, 2, 8, 3, 6, 4, 6, 2, 8, 4, 8, 4, 4, 2, 12, 2, 4, 6, 4, 4, 8, 2, 6, 4, 8, 2, 12, 2, 4, 6, 6, 4, 8, 2, 8, 4, 4, 2, 12, 4, 4, 4, 8, 2, 12, 4, 6, 4, 4, 4, 8, 2, 6, 6, 9
评论
a(n)也是除数d的数量,使得d和n/d的最大公平方除数为1。
n的除数d的个数,使得gcd(d,n/d)是平方自由的-阿米拉姆·埃尔达尔2023年8月25日
参考文献
Paul J.McCarthy,《算术函数导论》,Springer Verlag,1986年,第37页,练习1.27。
配方奶粉
Dirichlet g.f.:zeta(s)^2/zeta(4*s)。
求和{k=1..n}a(k)~90*n/Pi^4*(log(n)-1+2*gamma-360*zeta'(4)/Pi^4),其中gamma是Euler-Marcheroni常数A001620号. -瓦茨拉夫·科特索维奇2019年2月2日
例子
a(16)=4,因为有4个16的除数是4次幂自由的:1,2,4,8。
a(16)=4,因为16中有4个除数d,因此d和16/d的最大公共平方除数为1:1,2,8,16。
数学
前缀[Table[Apply[Times,(FactorInteger[n][[All,2]/.x_/;x>3->3)+1],{n,2,100}],1]
黄体脂酮素
(PARI)为A046100(n)=(n==1)||vecmax(因子(n)[,2])<4;
a(n)={d=除数(n);和(i=1,#d,isA046100(d[i]));}\\米歇尔·马库斯2015年3月22日
(PARI)a(n)=vecprod(适用(x->min(x,3)+1,系数(n)[,2]))\\阿米拉姆·埃尔达尔2023年8月25日
1, 16, 81, 384, 625, 640, 896, 1296, 1408, 1664, 2176, 2401, 2432, 2944, 3712, 3968, 4374, 4736, 5248, 5504, 6016, 6784, 7552, 7808, 8576, 9088, 9216, 9344, 10000, 10112, 10624, 10935, 11392, 12416, 12928, 13184, 13696, 13952, 14464, 14641, 15309, 16256, 16768
评论
如果k和m是互质项,那么k*m也是一个项。
该序列的特征函数仅依赖于素数签名。
m*p^(3*2^k+1)的数,其中m是无平方的,p是素数,gcd(m,p)=1和omega(m)=k都是项。特别是,这个序列包括形式为p^7*q的数字,其中p!=q是素数(A179664号)和形式为p^13*q*r的数,其中p、q和r是不同的素数。
相应的立方(或3-满)除数是1、3、3、6、3、六、九、六、六、6、六、三、六、。
数学
q[n_]:=模[{e=FactorInteger[n][[;;,2]]},Times@@(Min[#,3]&/@(e+1))==次数@@(Max[#,1]//@(e-1))];q[1]=正确;选择[范围[10^4],q]
黄体脂酮素
(PARI)是(k)={my(e=系数(k)[,2]);prod(i=1,#e,最小值(e[i]+1,3))==prod(i=1,#e,最大值(e[i]-1,1));}
数字k,使得k和k+1都具有相同数量的立方除数和3-全除数。
+10 2
916352, 3002751, 13080447, 22598271, 26110592, 28909952, 45706112, 49472127, 52890624, 53391231, 56190591, 58471552, 63468927, 65148543, 67947903, 69780608, 84744063, 89376128, 93142143, 94974848, 143530623, 143683712, 145770111, 155847807, 165925503, 177109375
数学
q[n_]:=模[{e=FactorInteger[n][[;;,2]]},Times@@(Min[#,3]&/@(e+1))==次数@@(Max[#,1]//@(e-1))];q[1]=正确;seq[kmax_]:=模块[{s={},k=1,q1=q[1],q2},Do[q2=q[k];如果[q1&&q2,AppendTo[s,k-1]];q1=q2,{k,2,kmax}];s] ;序号[2*10^5]
黄体脂酮素
(PARI)是(k)={my(e=系数(k)[,2]);prod(i=1,#e,最小值(e[i]+1,3))==prod(i=1,#e,最大值(e[i]-1,1));}
列表(kmax)={my(is1=is(1),i2);对于(k=2,kmax,is2=is(k);如果(is1&is2,print1(k-1,“,”));is1=is2);}
立方除数与无平方除数之比的渐近平均数的十进制展开。
+10 2
1, 2, 4, 2, 5, 3, 4, 1, 8, 6, 2, 2, 4, 6, 7, 7, 2, 8, 6, 9, 5, 9, 6, 3, 0, 0, 0, 6, 2, 9, 4, 3, 3, 7, 7, 0, 8, 0, 0, 0, 1, 5, 2, 5, 3, 3, 0, 5, 8, 9, 0, 5, 9, 8, 0, 1, 9, 8, 3, 2, 2, 6, 8, 4, 7, 1, 5, 9, 2, 4, 7, 4, 4, 9, 2, 0, 0, 5, 9, 2, 9, 5, 1, 5, 5, 5, 2, 8, 3, 3, 0, 5, 8, 6, 2, 6, 6, 4, 9, 1, 9, 2, 9, 0, 6
评论
渐近二阶原始矩为<r(k)^2>=Product_{pprime}(1+5/(4*p^2))=1.67242666864454336962…,渐近标准差为0.35851843008068965078。
配方奶粉
等于Product_{pprime}(1+1/(2*p^2))。
一般来说,对于k>=2,(k+1)-自由因子的个数与k-自由因子个数之比的渐近平均值是Product_{pprime}(1+1/(k*p^2))。
例子
1.24253418622467728695963000629433770800015253305890...
数学
$MaxExtraPrecision=1000;m=1000;c=线性递归[{0,-(1/2)},{0,1},m];RealDigits[Exp[NSum[Indexed[c,n]*PrimeZetaP[n]/n,{n,2,m},NSumTerms->m,WorkingPrecision->m]],10,105][[1]
黄体脂酮素
(PARI)prodeulerrat(1+1/(2*p^2))
搜索在0.012秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月23日08:25。包含376146个序列。(在oeis4上运行。)
|