%I#10 2024年3月26日07:54:54
%S 8524807183813611857504119180817213120193198432134099231,
%电话:40357021442066334483927349459511488475144496151884467,
%电话:5414412157129613577804875829360161378571655789016678672166787873
%N 11级+质数。
%盖伊,《数论中未解决的问题》,A18。
%H R.J.Mathar,n表,n=1..108的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[#]]==11&]]
%Y参见A005113、A005105-A005108、A081633-A081638、A084071、A090468。
%K nonn公司
%O 1,1号机组
%A _Robert G.Wilson v_,2003年3月20日
|