%I#14 2021年11月11日11:29:45

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

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

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

%N a（N）=N的素因式分解中素指数的LCM，a（1）=1。

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

%H<a href=“/index/Lc#lcm”>与lcm相关的序列的索引项</a>

%H<a href=“/index/Pri#prime_indices”>根据素因式分解中的索引计算出的序列的索引项</a>

%F a（1）=1；对于n>1，a（n）=lcm（A055396（n），a（A028234（n））。

%F其他身份。对于所有n>=1：

%F a（A007947（n））=a（n）。

%F a（A181819（n））=A072411（n）。

%这里primepi（A000720）给出了它的主参数的索引：

%e n=14=2*7，因此a（14）=lcm（素数（2），素数（7））=lcm（1,4）=4。

%e n＝21＝3*7，因此a（21）＝lcm（素数pi（3），素数pi（7））＝lcm（2，4）＝4。

%t表[Apply[LCM，PrimePi[FactorInteger[n][[All，1]]]+Boole[n==1]，{n，105}]（*_Michael De Vlieger_，2017年8月14日*）

%o（方案）（定义（A290103 n）（如果（=1 n）n（lcm（A055396 n）（A290101（A028234 n））））_Antti Karttunen，2017年8月13日

%o（PARI）a（n）=如果（n>1，lcm（apply（primepi，factor（n）[，1]）），1）查尔斯·格里特豪斯IV，2021年11月11日

%Y参见A000040、A000720、A003963、A007947、A156061、A290104、A290105。

%Y参见A072411、A181819。

%K nonn公司

%O 1,3

%A _Antti Karttunen_，2017年8月13日