%I#12 2019年10月8日16:25:50

%S 0,1,1,9,1,5,1,25,6,7,1225,1,9,15,21,1,21,12,1625,10,13,1525,10,15，

%T 3750,211,31,118375,14,19,25,49,1,21225735,1,41,1875,39,25,1，

%U 385875,14,4537513125,1367502251029,22,31,11029,1,33,51294125,18,611225,26,59,184035,1,39,5518375,18,71,13151312542875

%N如果A327928（N）为零，则a（N）=A003415（N），否则a（N。

%C零之后，序列只包含A048103的项。

%C注意，有固定点，如a（15）=15。

%H Antti Karttunen，n的表，n=1..1728的a（n）</a>

%H Antti Karttunen，<a href=“/A328097/A328097.txt”>数据补充：n，a（n）计算n=1.65537</a>

%o（PARI）

%o A003415（n）=如果（n<=1，0，my（f=系数（n））；n*和（i=1，#f~，f[i，2]/f[i，1]）；

%o A129251（n）={my（f=因子（n））；和（k=1，#f~，（f[k，2]>=f[k），1]）；}；

%o A276086（n）={my（i=0，m=1，pr=1，nextpr）；while（n>0），i=i+1；nextpr=素数（i）*pr；if；

%o A328097（n）=如果（1==n，0，my（u=A003415（n））；如果（！A129251（u），u，A276086（u））；

%Y参见A003415、A048103、A129251、A276085、A2760086、A327859、A327828、A327929、A32.7963、A327965、A328098、A328099。

%K nonn公司

%O 1,4型

%A _Antti Karttunen，2019年10月7日