登录
设p是n的最大素因子;如果p是第k素数,则设置a(n)=k;按照惯例,a(1)=0。
513

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