%I#8 2024年3月26日07:04:06
%S 106560124497351148817222561812481852409186474118650321,
%电话:91906819287521959041710617601109298171996161234909312508081,
%电话:12786181129711171357068114113027143081231431274314476807
%N 10级+质数。
%盖伊,《数论中未解决的问题》,A18。
%H R.J.Mathar,n表,n=1..360的a(n)</a>
%p有关Maple程序,请参阅A005105中的Mathar链接。
%t PrimeFactors[n_Integer]:=扁平[表[#[[1]],{1}]&/@FactorInteger[n]];f[n_Integer]:=块[{m=n},如果[m==0,m=1,而[IntegerQ[m/2],m/=2];而[IntegerQ[m/3],m/=3]];应用[Times,PrimeFactors[m]+1]];ClassPlusNbr[n_]:=长度[NestWhileList[f,n,UnsameQ,All]]-3;素数[Select[Range[150000],ClassPlusNbr[Prime[#]]==10&]]
%Y参见A005113、A005105、A005106、A005107、A005108、A081633、A08163、A081neneneej、A0811636、A08163/7、A0816.39。
%K nonn公司
%O 1,1号机组
%A _Robert G.Wilson v_,2003年3月20日
|