%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日