显示找到的5个结果中的1-5个。
第页1
如果n是正方形,a(n)=A000196号(n) ,对于非平方n,设p是最小的素数,除以n的平方部分。将n除以p,再乘以所有较小素数的乘积。
+10 9
1, 1, 2, 2, 6, 3, 30, 4, 3, 5, 210, 8, 2310, 7, 10, 4, 30030, 9, 510510, 24, 14, 11, 9699690, 12, 5, 13, 18, 120, 223092870, 15, 6469693230, 16, 22, 17, 42, 6, 200560490130, 19, 26, 20, 7420738134810, 21, 304250263527210, 840, 54, 23, 13082761331670030, 32, 7, 25, 34, 9240, 614889782588491410, 27, 66, 28, 38, 29
数学
数组[If[IntegerQ[#2],#2,#1/#2*乘积[素数@i,{i,PrimePi@#2-1}]&@@{#1,因子整数[#2/.(c:1)*a_^(b:0):>(c*a^b)^2][[1,1]}]&@{#,Sqrt[#]}&,58](*迈克尔·德弗利格2020年6月26日*)
黄体脂酮素
(PARI)A334870型(n) =如果(issquare(n),sqrtint(n)),my(c=核心(n)、m=n);对于素数(p=2,如果(!(c%p),m/=p;断裂,m*=p));(m) );
0, 1, 2, 2, 4, 3, 8, 3, 3, 5, 16, 4, 32, 9, 6, 3, 64, 4, 128, 6, 10, 17, 256, 5, 5, 33, 5, 10, 512, 7, 1024, 4, 18, 65, 12, 4, 2048, 129, 34, 7, 4096, 11, 8192, 18, 7, 257, 16384, 5, 9, 6, 66, 34, 32768, 6, 20, 11, 130, 513, 65536, 8, 131072, 1025, 11, 4, 36, 19, 262144, 66, 258, 13, 524288, 5, 1048576, 2049, 7, 130
黄体脂酮素
(PARI)
A334870型(n) =如果(issquare(n),sqrtint(n)),my(c=核心(n)、m=n);对于素数(p=2,如果(!(c%p),m/=p;断裂,m*=p));(m) );
(PARI)
\\速度更快:
A048675号(n) ={my(f=因子(n));和(k=1,#f~,f[k,2]*2^素数(f[k、1]))/2;};
A334871型(n) ={my(s=0);while(n>1,if(issquare(n),s++;n=sqrtint(n)),s+=A048675号(核心(n));n/=芯(n));(s) ;};
交叉参考
囊性纤维变性。A007913号,A008833号,A070939号,A225546型,A252464号,A299090型,A334859型,A334860飞机,A334865飞机,A334866飞机,A334869飞机,A334870型,A334872飞机.
词法上最早的无限序列,使得a(i)=a(j)=>f(i)=f(j)对于所有i,j>=1,其中f(1)=0,对于n>1,f(n)=-1,如果n在A050376号和f(n)=A334870型(n) 否则。
+10 三
1, 2, 2, 2, 2, 3, 2, 4, 2, 5, 2, 6, 2, 7, 8, 2, 2, 9, 2, 10, 11, 12, 2, 13, 2, 14, 15, 16, 2, 17, 2, 18, 19, 20, 21, 22, 2, 23, 24, 25, 2, 26, 2, 27, 28, 29, 2, 30, 2, 31, 32, 33, 2, 34, 35, 36, 37, 38, 2, 39, 2, 40, 41, 6, 42, 43, 2, 44, 45, 46, 2, 47, 2, 48, 49, 50, 51, 52, 2, 53, 2, 54, 2, 55, 56, 57, 58, 59, 2, 60, 61, 62, 63, 64, 65, 66, 2, 67, 68, 8, 2, 69, 2, 70, 71
黄体脂酮素
(PARI)
up_to=65537;
rgs_transform(invec)={my(om=Map(),outvec=vector(length(invec)),u=1);对于(i=1,长度(invesc),如果(mapisdefined(om,invec[i]),my(pp=mapget(om,invec[i];
ispow2(n)=(n位和(n,n-1));
A334870型(n) =如果(issquare(n),sqrtint(n)),my(c=核心(n)、m=n);对于素数(p=2,如果(!(c%p),m/=p;断裂,m*=p));(m) );
v334868=rgs_transform(向量(up_to,n,A334868aux(n)));
0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 4, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 2, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 4, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 4, 4, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 4, 1, 2, 2, 1, 1, 1, 1, 2, 1
例子
当n=900时,用迭代A334870型我们得到路径900->30->15->10->5,5^1最终是一个素数幂,其指数为2的幂,因此a(900)=1。请注意,900是该序列中未列出的1的第一个这样的位置A333634型.
黄体脂酮素
(PARI)
A334870型(n) =如果(issquare(n),sqrtint(n)),my(c=核心(n)、m=n);对于素数(p=2,如果(!(c%p),m/=p;断裂,m*=p));(m) );
(PARI)
A335428型(n) =如果(1==n,0,while(!A302777型(n) ,如果(issquarefree(n),return(1));如果(发行方(n),n=平方(n)、n/=核心(n));isprimpower(n));
a(1)=0;对于k>=2,a(素数(k))=0,a(k^2)=2*a(k);否则a(n)=a(A334870型(n) )+1。
+10 2
0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 4, 0, 1, 2, 4, 0, 1, 0, 6, 2, 1, 0, 5, 0, 1, 2, 10, 0, 3, 0, 5, 2, 1, 4, 2, 0, 1, 2, 7, 0, 3, 0, 18, 4, 1, 0, 6, 0, 1, 2, 34, 0, 3, 4, 11, 2, 1, 0, 8, 0, 1, 8, 6, 4, 3, 0, 66, 2, 5, 0, 3, 0, 1, 2, 130, 8, 3, 0, 8, 0, 1, 0, 12, 4, 1, 2, 19, 0, 5, 8, 258, 2, 1, 4, 7, 0, 1, 16, 2, 0, 3, 0, 35, 6
配方奶粉
替代定义:(开始)
a(1)=0,a(2)=1;否则,对于n=k*m^2,k平方自由:
(结束)
黄体脂酮素
(PARI)
A334870型(n) =如果(issquare(n),sqrtint(n)),my(c=核心(n)、m=n);对于素数(p=2,如果(!(c%p),m/=p;断裂,m*=p));(m) );
(PARI)
A048675号(n) ={my(f=因子(n));和(k=1,#f~,f[k,2]*2^素数(f[k、1]))/2;};
A052126号(n) =如果(1==n,n,(n/vecmax(系数(n)[,1]));
搜索在0.006秒内完成
|