%I#15 2024年4月3日15:15:38

%S 2,11,23,472837191439287934549138197126671492030336449279，

%电话37798210714323490992211003847110874748763

%根据Erdős-Selfridge对素数的分类，N a（N）是N-类的最小素数。

%如果p-1没有大于3的素数因子，则素数p属于1类。如果p-1有其他素因子，则p在类（c+1）-中，其中c-是其素因子的最大类。另请参见A005109。

%C 1432349099<a（16）<=25782283783。

%C a（18）<=619108107719，a（19）<=19811459447009，a，（20）<=152772264735359。这些上限可以通过从n类素数列表中生成类（n+1）素数来找到；如果后者足够完备，则可以推断出不存在更小的（n+1）素数_M.F.Hasler，2007年4月5日

%F a（n+1）>=2*a（n）+1，因为a（n+1）-1是偶数，并且必须有一个n类因子，即奇数（n>1）和>=a（n）。a（n+1）<=min{p=2*k*a（n）+1|k=1,2,3……这样p就是素数}，因为a（n_M.F.Hasler，2007年4月5日

%t PrimeFactors[n_Integer]：=压扁[表[#[[1]]，{1}]&&@FactorInteger[n]]；下一素数[n_]：=块[{k=n+1}，而[！素数Q[k]，k++]；k] ；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；a=表[0，{15}]；a[[1]]=2；k=5；Do[c=ClassMinusNbr[k]；如果[a[[c]]==0，则a[[c]]=k]；k=下一素数[k]，{n，37223000}]；一

%Y参见A005113、A005109、A00.5110、A005111、A005112、A081424、A081428、A08142.7、A081128、A0814.29、A081430。

%Y参见A082449、A129246、A081640、A12924.8。

%K更多，nonn

%O 1,1号机组

%A _Robert G.Wilson v_，2001年1月31日

%E由_Robert G.Wilson v_扩展，2003年3月20日

%E 2003年4月11日《关于Reble_的更多条款》

%E a（16）和a（17）摘自M.F.Hasler_，2007年4月21日