%I#25 2017年3月30日22:36:56

%S 1,1,2,1,3,2,4,12,3,5,2,6,4,6,1,7,2,8,3,8,5,9,2,3,6,4,10,6,11,10，

%电话：7,12,2,12,8,12,3,13,8,14,5,6,9,15,2,4,3,14,6,16,4,15,4,16,10,17,6,18，

%U 11,8,1,18,10,19,7,18,12,20,2,21,12,6,8,20,12,2,3,13,23,8,21,14,20,5,24,6,24,9,22,15,242,25,4,10,3,26,14,27,6,24，16,28

%在N的递归素因式分解中，用其秩替换每个素数。

%C a（A000040（n））=n，因此所有自然数都出现在这个序列中。

%C a（2n）=n。

%C看起来，a（35）=12是唯一一个复合指数比任何较小指数产生更大值的例子。检查至10^7。-_Charles R Greathouse IV_，2016年7月30日

%H Paul Tek，n的表，n的a（n）=1..10000</a>

%H Paul Tek，此序列的Perl程序</a>

%F乘法，a（素数（i）^j）=i^a（j）。

%F a（n）=产品（A049084（A027748（k））^a（A124010（k）：k=1..A001221（n））.-_Reinhard Zumkeller_，2013年5月10日

%e数字9967是第1228个素数。

%e因此a（9967）=1228。

%e 31250的递归素因式分解是2*5^（2*3）。

%e数字2、3和5分别是第一、第二和第三质数。

%e因此a（31250）=a（2*5^（2*3））=1*3^（1*2）=9。

%ta[1]=1；a[p_？PrimeQ]：=a[p]=PrimePi[p]；a[n]:=a[n]=Times@@（PrimePi[#[[1]]]^a[#[[2]]]&&@FactorInteger[n]）；表[a[n]，{n，1100}]（*Jean-François Alcover_，2013年6月7日*）

%o（Perl）请参阅链接。

%o（哈斯克尔）

%o a225395 n=产品$zipWith（^）

%o（地图a049084$a027748行n）（地图a225395$a124010行n）

%o--_Reinhard Zumkeller_，2013年5月10日

%o（PARI）a（n）=如果（n<3，返回（1））；my（f=系数（n））；prod（i=1，#f~，primepi（f[i，1]）^a（f[i,2]））\\_Charles R Greathouse IV_，2016年7月30日

%Y参考A000040、A000026、A156061。

%K non，mult，不错

%氧1,3

%A Paul Tek，2013年5月6日