%我

%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,3,6,2,4,10,3,11,1,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,5,24,3,6,9,11,15

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

%C记录出现在质数。-罗伯特G.威尔逊诉，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 prime，j=1…r）（概念由_Alois p.Heinz嫒在A215366中用作分区的“编码”）。例如，对于分区[1，1，2，4，10]，我们得到2*2*3*7*29=2436。例如：a（20）=3；实际上，Heinz数为20=2*2*5的分区是[1,1,3]。-2015年6月4日，德国

%HÁlvar Ibeas，<a href=“/A061395/b061395.txt”>n，a（n）的表格，n=1..100000</a>（Harry J.Smith的前1000个术语）

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

%0.0640牛顿（0.060牛顿））；0.060牛顿（0.060牛顿）。-2003年5月22日，Reinhard Zumkeller

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

%F a（n）=A000720（A006530（n））。-阿洛伊斯·P·海因茨，2020年3月5日

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

%p带（数字）：

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

%p seq（a（n），n=1..100）；#u Alois p.Heinz_2013年8月3日

%t Insert[Table[PrimePi[FactorInteger[n][[-1]][[1]]]，{n，2，120}]，0，1]（*u Stefan Steinerberger_2006年4月11日*）

%t f[n_u]：=PrimePi[factoranteger@n][-1，1]]；数组[f，94]（*∗Robert G.Wilson v_2007年12月30日*）

%o（PARI）{对于（n=11000，if（n==1，a=0，f=factor（n）~；p=f[1，length（f）]；a=primepi（p））；write（“b061395.txt”，n，“，a））}\\\\\\\ Harry J.Smith_年7月22日

%o（哈斯凯尔）

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

%o（Python）

%o来自sympy import primepi，primefactors

%o def a（n）：如果n==1，则返回0；否则primepi（primefactors（n）[-1]）

%o打印[a（n）for n in range（1101）]#_IndranilGhosh_2017年5月14日

%Y比照A000720、A006530、A055396、A061394、A133674、A243055。

%轻松，好，不

%O 1,3号

%亨利·博特利，2001年4月30日

%E定义改写者：U N.J.A.Sloane_u，2008年7月1日