%I#41 2023年4月3日10:36:11

%电话：220771404875347116116453335076692367338188748146801

%N素数p，使得p^2除以5^（p-1）-1。

%多雷斯和克莱夫证明，在9.7*10^14之前，没有其他条款。

%C a（6）和a（7）是由Keller和Richstein发现的（参见Keller，Richsteen，2005）_Felix Fröhlich，2017年1月6日

%C A242959的基本条款。-_Felix Fröhlich，2017年1月6日

%H Amir Akbary和Sahar Siavashi，<a href=“http://math.colgate.edu/~integers/s3/s3.Abstract.html“>已知最大威弗里奇数</a>，integers，18（2018），A3。见第5页的表1。

%H Chris K.Caldwell，《主要词汇表》，<a href=“https://t5k.org/glossary/page.php？sort=FermatQuotient（费马商）“>费马商</a>。

%H François G.Dorais和Dominic Klyve，<a href=“http://www.cs.uwaterloo.ca/journals/JIS/VOL14/Klyve/klyve3.html“>p<6.7*10^15</A>的Wieferich素数搜索，J.Integer Seq.14（2011），第11.9.2条，第1-14条。

%H W.Keller和J.Richstein，<a href=“https://doi.org/10.1090/S0025-5718-04-01666-7“>同余a^p-1==1（mod p^r）的解，《数学比较》74（2005），927-936。

%H A.Paszkiewicz，<A href=“http://dx.doi.org/10.1090/S0025-5718-08-02090-5“>一个新素数p，其最小原始根（mod p）和最小原始根（mod p^2）不相等</A>，Math.Comp.78（2009），1193-1195。

%t选择[Prime[Range[2500]]，Divisible[5^（#1）-1，#^2]和]（*_Alonso del Arte_，2014年8月1日*）

%t选择[Prime[Range[55*10^6]]，PowerMod[5，#-1，#^2]==1&]（*程序生成序列的前4个项。*）（*Harvey P.Dale_，2023年1月29日*）

%o（PARI）

%o N=10^9；默认值（primelimit，N）；

%o表示素数（n=2，n，如果（Mod（5，n^2）^（n-1）==1，print1（n，“，”））；

%2013年5月1日，Joerg Arndt_

%Y参见A001220、A014127、A123693、A128667、A128688、A090968、A128699、A096082、A242959。

%K难，不难，更多

%O 1,1号机组

%A _最大Alekseyev_，2006年10月7日

%E来自_Alexander Adamchuk的更多条款，2006年11月27日

%E由Max Alekseyev更新，2012年1月29日