%I#78 2025年5月1日23:30:47

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

%T 7,4,2,12,8,6,3,13,4,14,5,3,9,15,2,4,3,7,6,16,2,5,4,8,10,17,3,18,11,4，

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

%N设p是N的最大素因子；如果p是第k素数，则设置a（n）=k；按照惯例，a（1）=0。

%C记录发生在素数。-Robert G.Wilson v_，2007年12月30日

%C对于n>1：A067255中第n行的长度。-Reinhard Zumkeller，2013年6月11日

%C a（n）=具有Heinz数n的分区的最大部分。我们将分区的Heinz号p=[p_1，p_2，…，p_r]定义为乘积（p_j-th素数，j=1…r）（_Alois p.Heinz_在A215366中使用的概念是分区的“编码”）。例如，对于分区[1，1，2，4，10]，我们得到2*2*3*7*29=2436。示例：a（20）=3；实际上，海因氏数为20=2*2*5的分区是[1,1,3]。-《德国参考》，2015年6月4日

%Hálvar Ibeas，n表，n=1..100000的a（n）

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

%F A000040（a（n））=A006530（n）；a（n）=A049084（A006530（n））。-Reinhard Zumkeller_，2003年5月22日

%F A243055（n）=a（n）-A055396（n）。-Antti Karttunen，2017年3月7日

%F a（n）=A000720（A006530（n））。-Alois P.Heinz，2020年3月5日

%F a（n）=A029837（A087207（n）+1）。-Flávio V.Fernandes，2025年4月24日

%e a（20）=3，因为20的最大素因子是5，这是第三个素。

%p带有（numtheory）：

%pa:=n->pi（最大值（1，系数集（n）[]））：

%p序列（a（n），n=1..100）；#_Alois P.Heinz，2013年8月3日

%t插入[Table[PrimePi[FactorInteger[n][[-1]][[1]]]，{n，2，120}]，0，1]（*_Stefan Steinerberger_，2006年4月11日*）

%t f[n_]：=PrimePi[因子整数@n][[ -1, 1]];数组[f，94]（*_Robert G.Wilson v_，2007年12月30日*）

%o（PARI）a（n）=如果（n==1，0，素数（vecmax（因子（n）[，1]））；2022年11月14日，马库斯

%o（哈斯克尔）

%o a061395=a049084。a006530---Reinhard Zumkeller_，2013年6月11日

%o（Python）

%o来自sympy import primepi，primefactors

%o定义a（n）：如果n==1，则返回0，否则为素数（素数（n）[-1]）

%o打印（[a（n）代表范围（1101）中的n）]#_Indranil Ghosh，2017年5月14日

%Y参见A000720、A006530、A055396、A061394、A133674、A243055。

%Y参考A029837、A087207。

%放松，好，不

%氧1,3

%2001年4月30日，安利底特律

%E定义由N.J.A.Sloane修订，2008年7月1日