%I#8 2012年9月22日11:26:27
%S 283359557659941110911291223143316631669169317871997,
%电话:2027203920692083215323392351250325392579263672777,
%电话:28032837299932293581376137373737793989412741574214253428342974513
%N第5类-素数(定义见A005109)。
%盖伊,《数论中未解决的问题》,A18。
%H R.J.Mathar,n表,n=1..20000的a(n)</a>
%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]];ClassMinusNbr[n_]:=长度[NestWhileList[f,n,UnsameQ,All]]-3;素数[Select[Range[700],ClassMinusNbr[Prime[#]]==5&]]
%Y参见A005113、A056637、A005109、A005110、A005111、A005112、A081425、A081428、A08142.9、A081430。
%K nonn公司
%O 1,1
%A _Robert G.Wilson v_,2003年3月20日
|