%I#6 2012年3月30日17:30:54

%S 14398629100671468317257195772038922643237432710328219，

%电话：293993165732633331073311338633425934513359513613736887，

%电话：373794012740637407594217942209427674451944579451394901949669

%N第7类-素数。

%盖伊，《数论中未解决的问题》，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[5200]，ClassMinusNbr[Prime[#]]==7&]]

%Y参见A005113、A056637、A005109、A005110、A005111、A005112、A081424、A081428、A08142.9、A081430。

%K nonn公司

%O 1,1号机组

%A _Robert G.Wilson v_，2003年3月20日