%I#17 2018年7月4日14:14:14
%S 1,2,3,4,5,2,7,8,9,2,1,1,3,13,2,3,16,17,2,19,4,2,23,3,25,2,27,4,29,2,
%电话31,32,3,2,5,4,37,2,3,5,41,2,43,4,5,2,47,3,49,2,3,1,5,7,2,59,3,
%U 61,2,7,64,5,2,67,4,3,2,71,8,73,2,3,4,7,2,79,5,81,2,83,5,2,3,8,89,2,7,4
%N如果N=p_1^e_1*…*p_k^e_k,p_1<…<pk素数,则a(n)=min{pi^ei}。
%Ca(1)=1;对于n>1,n的最小幺正因子大于1。
%H T.D.Noe,n表,n=1..1000的a(n)</a>
%F a(n)=最小值{A141809(n,k):k=1..A001221(n)}.-_Reinhard Zumkeller_,2013年1月29日
%t A034684[n_]:=最小值[(#[[1]]^#[[2]])&&@因子整数[n]];阵列[A034684100](*_Enrique Pérez Herrero_,2011年11月1日*)
%o(PARI)A034684(n)={局部(f,m);如果(n==1,1,f=因子(n);m=f[1,1]^f[1,2];对于(i=1,矩阵大小(f)[1],m=min(m,f[i,1]^f[i、2]));m)}\\_Michael B.Porter_,2010年1月28日
%o(哈斯克尔)
%o a034684=最小值。a141809_罗——雷恩哈德·祖姆凯勒,2013年1月29日
%Y参见A020639、A006530、A034684、A028233、A034699、A053585。
%Y参见A034444、A034448、A052125。
%Y参考A008475。
%K nonn,很好,很容易
%O 1,2号机组
%A _弗里德曼_
|