A183104-OEIS公司

A183104号

a（n）=n的完全幂除数的乘积。

1, 1, 1, 4, 1, 1, 1, 32, 9, 1, 1, 4, 1, 1, 1, 512, 1, 9, 1, 4, 1, 1, 1, 32, 25, 1, 243, 4, 1, 1, 1, 16384, 1, 1, 1, 1296, 1, 1, 1, 32, 1, 1, 1, 4, 9, 1, 1, 512, 49, 25, 1, 4, 1, 243, 1, 32, 1, 1, 1, 4, 1, 1, 9, 1048576, 1, 1, 1, 4, 1, 1, 1, 10368

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,4

顺序与不同A183102号：a（72）=10368，A183102号(72) = 746496.

非乘法，如a（4）*a（9）<>a（36）-R.J.马塔尔，2011年6月7日

链接

安蒂·卡图恩，n=1..16385时的n，a（n）表

配方奶粉

a（n）=A007955号（n）/A183105号（n） ●●●●。

对于p，q=素数，k=自然数，pq。。。z=k（k>2）不同素数p，q，…，的乘积。。。，z。

例子

对于n=12，这样的除数集是{1,4}；a（12）=1*4=4。

MAPLE公司

isA001597:=进程（n）局部e；e:=seq（op（2，p），p=ifactors（n）[2]）；返回（igcd（e）>=2）；结束进程：

A183104号：=proc（n）局部a，d；a:=1；对于numtheory[除数]（n）中的d，如果是A001597（d），那么a:=a*d；结束条件：；结束do；a；结束进程：

序列(A183104号（n），n=1..72）#R.J.马塔尔，2011年6月7日

数学

perfPQ[n_]：=GCD@@FactorInteger[n][[All，2]]>1；表[Times@@Select[Divisors[n]，perfPQ[#]&]，{n，120}](*哈维·P·戴尔，2024年3月7日*）

黄体脂酮素

（PARI）A183104号（n） ={my（m=1）；fordiv（n，d，if（i幂（d），m*=d））；m；}\\安蒂·卡图恩2017年10月7日

交叉参考

囊性纤维变性。A001597号,A007955号,A091051号,A183102号,A183105号.

上下文中的序列：A362297飞机 A354358 A112622号*A183102号 A178649号 A353976飞机

相邻序列：A183101号 A183102号 A183103号*A183105号 A183106号 A183107号

关键词

非n

作者

雅罗斯拉夫·克里泽克2010年12月25日

状态

经核准的