%I#23 2023年11月12日13:28:10
%S 1,2,3,4,5,36,7,64,9100,111728,1319622526,175832,198000441,
%电话:484,23331776,2567672921952,29810000,313276810891156225,
%电话:1679616,3714441521560000,413111696,4385184911252116,47
%N除以N的除数乘积的N的最大整数幂。
%C n的除数对(d,n/d)中不同部分的乘积,其中d<n/d。例如,n=4的除数是{1,2,4},带有除数偶(1,4)和(2,2),但只有对(1,4_韦斯利·伊万·赫特,2023年11月10日
%H<a href=“/index/Tu#2wis”>双向无限序列的索引条目</a>。
%F a(n)=n ^ A056924(n)。
%F如果n是平方a(n)=A007955(n)/sqrt(n),则a(n。
%e a(16)=256,因为16的因子是1,2,4,8,16,所以它们的乘积是1024,16除以1024的最大幂是256。
%t lip[n_]:=模块[{pr=Times@@Divisors[n],pwr},pwr=Floor[Log[n,pr]];n^最后一个[Select[Range[pwr],Divisible[pr,n^#]&]]];加入[{1},lip/@Range[2,50]](*哈维·P·戴尔,2011年4月2日*)
%t a[n_]:=n^楼层[DivisorSigma[0,n]/2];阵列[a,50](*_Amiram Eldar_,2022年6月26日*)
%o(Python)
%o从sympy导入divisor_count
%o定义A056925(n):返回n**(divisor_count(n)//2)#_Chai Wah Wu_,2022年6月25日
%o(PARI)a(n)=n^(numdiv(n)\2);\\_米歇尔·马库斯,2023年11月11日
%Y参考A007955、A056924。
%K nonn公司
%O 1,2号机组
%2000年7月12日,安里·波托姆利
|