%I#23 2024年7月8日10:47:53

%S 8,9,13,14,15,16,17,18,19,20,21,22,23,24,26,29,30,31,32,33,34,35,36，

%电话：38、39、40、42、43、44、45、47、48、49、50、51、52、53、54、55、56、57、58、59、60、61、62，

%U 63、64、65、66、67、68、69、70、71、72、74、75、76、78、79、80、81、82、83、84、85

%N个EHS数：k使得存在满足k的素数p！+1==0（mod p）和p！==1（型号k）。

%这个序列的补码（A064295）是A002981的超集，也就是说，A00298l的项不出现在这个序列中。

%C Hardy和Subbarao证明了这个序列是无限的，见他们的定理2.12_Charles R Greathouse IV_，2015年9月10日

%H Amiram Eldar，n表，n=1..120的a（n）</a>

%H G.E.Hardy和M.V.Subbarao，<a href=“网址：http://www.alberta.ca/~subarao/documents/2002_Pillai.pdf“>Pillai的修改问题和一些相关问题</A>，《美国数学月刊》109:6（2002），第554-559页。

%H H.Mishima，<a href=“http://www.asahi-net.or.jp/~KC2H-MSM/mathland/matha1/matha104.htm“>N！+1的因子</a>

%t Do[k=1；While[p=素数[k]；k<10^8&&不[Nor[Mod[n！+1，p]！=0，模态[p，n]==1]]，k++]；如果[k！=10^8，打印[n，“，p]]，{n，2，88}]

%o（PARI）是（n）=我的（f=系数（n！+1）[，1]）；对于（i=1，#f，如果（f[i]%n！=1，返回（n>1））；2015年9月10日，沙尔斯R Greathouse IV

%Y最小的相关素数p在A064229中给出。

%Y参考A002981、A064295。

%K nonn很好

%O 1,1号机组

%A R.K.Guy_，2001年9月20日

%E由_Don Reble_修订和扩展，2001年9月23日