%I#50 2022年9月8日08:44:53

%S 2,3,7,11,23,31,43,47,59,67,71,79,83103107131139179191211，

%电话：223227239263283311331347359367383419431439443463467，

%电话：479499503547563571587599607619643647659683691719743

%N素数p，使得p-1为平方自由。

%C一个等价的定义：数字n，使得φ（n）等于n-1的无平方核。

%C第一个差值（奇数项之间）的最小值为4。使p和p+4都是项的素数p是：3，7，43，67，79，103，223，439，463，499，643，823，…-_扎克·塞多夫，2013年4月16日

%C A000040中该组的密度为Artin常数A=A005596=37.39…%，见Mirsky_Charles R Greathouse IV，2015年10月26日

%H N.J.A.Sloane，2015年10月25日，N表，N=1..25000的A（N）

%H Theodor Estermann，<a href=“http://eudml.org/doc/159528“>Einige Sätzeüber quadrafrie Zahlen，《数学年鉴》105:1（1931），第653-662页。

%H Leon Mirsky，<a href=“http://www.jstor.org/stable/2305811“>整数表示为素数与无k整数之和的次数，《美国数学月刊》56:1（1949），第17-19页。

%φ（43）=42，42=2^1*3^1*7^1，2*3*7=42。

%这里是e p=223，因为p-1=222=2*3*37

%p是A039787:=进程（n）

%p如果是素数（n），则

%数字理论[无问题]（n-1）；

%p其他

%p假；

%p end if；

%p端程序：

%p表示n在2到100 do之间

%p如果是A039787（n），则

%p打印f（“%d，”，n）；

%p end if；

%截止日期：#R.J.Mathar_，2013年4月17日

%p与（数字理论）：lis:=[]；对于从1到10000的n，do如果issqrfree（ithprime（n）-1），则lis:=[op（lis），ithprice（n）]；fi；od:lis；编号_N.J.A.Sloane，2015年10月25日

%t选择[Prime[Range[132]]，SquareFreeQ[#-1]&]（*_Zak Seidov_，2012年8月22日*）

%o（岩浆）[PrimesUpTo（780）|IsSquarefree（p-1）中的p:p]；//_Bruno Berselli_，2011年3月3日

%o（PARI）is（n）=isprime（n）&&issquarefere（n-1）\\_查尔斯·格里特豪斯IV，2013年7月2日

%o（PARI）表示质数（p=2，1e3，if（issquarefree（p-1），print1（p“，”））；\\_阿尔图格·阿尔坎，2015年10月26日

%Y参见A000010、A007947、A049092（补遗）。

%K nonn公司

%O 1,1号机组

%A _利维尔·杰拉德_

%E来自_Labos Elemer的更多术语_