%I#2020年4月9日10:51:16

%S 1,1,2,1,4,1,6,1,2,1,1,10,12,1,4,1,16,18,1,4,1,22,1,4,2,38,1,30，

%T 1,4,1,4,1,36,1,41,40,1,42,1,8,1,46,1,6,1,4,3,52,1,4,14,1,58,1,60,1，

%U 4,1,16,5,66,1,4,3,70,1,72,1,4,1,3,4,1,1,78,1,2,1,82,1,16,1,41,88,1,36,1

%N a（N）=乘积{素数p除以N}gcd（p-1，N-1）。

%C a（n）=模n为b^{n-1}==1（mod n）的基b的个数。

%Ca（A209211（n））=1_Reinhard Zumkeller，2013年3月2日

%C A049559（n）除以a（n）再除以A000010（n）_Thomas Ordowski，2013年12月14日

%C注意，当n=1或n是素数或n是Carmichael数A002997时，a（n）=phi（n）_Thomas Ordowski，2013年12月17日

%H Amiram Eldar，n表，n=1..100000的a（n）（T.D.Noe的术语1..1000）

%H W.R.Alford、A.Granville和C.Pomerance，<A href=“网址：http://www.dms.umontreal.ca/~andrew/Postscript/carmichael.ps“>卡迈克尔数无穷多</a>，《数学年鉴》（2）139（1994），第3期，第703-722页。

%H R.Baillie和S.S.Wagstaff，<a href=“http://dx.doi.org/10.1090/S0025-5718-1980-0583518-6“>卢卡斯伪素数，《计算数学》，35（1980），1391-1417。

%H P.Erdős和C.Pomerance，<a href=“网址：http://www.math.dartmouth.edu/~carlp/PDF/paper55.PDF“>关于复合数字的虚假证人数量，《计算数学》，46（1986），259-279。

%H Keith Gibson，<a href=“https://listserv.nodak.edu/cgi-bin/wa.exe？A2=NMBRTHRY;3c0a5dbc.0109“>NMBRTHRY发布</a>，2001年9月7日。

%H Romeo Meštrović，<a href=“http://arxiv.org/abs/1305.1867“>Carmichael数I的推广，arXiv:1305.1867v1[math.NT]，2013年5月4日。

%H Carl Pomerance，<a href=“https://listserv.nodak.edu/cgi-bin/wa.exe？A2=NMBRTHRY;d1046c7.0107“>NMBRTHRY发布，2001年7月26日。

%对于素数p和整数m>0，F a（p^m）=p-1和a（2p^m）=1。-_Thomas Ordowski，2013年12月15日

%F a（n）=和{k=1..n}_安东尼·布朗，2016年5月11日

%t f[n_]：=倍@@GCD[n-1，第一个/@FactorInteger@n-1]；f[1]=1；数组[f，92]（*_Robert G.Wilson v_，2011年8月8日*）

%o（PARI）对于（n=11000，f=因子（n）~；a=1；对于（i=1，长度（f），a*=gcd（f[1，i]-1，n-1））；write（“b063994.txt”，n，“”，a））\\_哈里·史密斯，2009年9月5日

%o（PARI）a（n）=我的（f=系数（n）[，1]）；prod（i=1，#f，gcd（f[i]-1，n-1））\\_Charles R Greathouse IV_，2013年12月10日

%o（Python）

%o定义a（n）：

%o如果n==1：返回1

%o返回长度（[1表示范围（1，n）内的见证，如果pow（见证，n-1，n，==1]）

%o[a（n）代表范围（1100）内的n]

%o（哈斯克尔）

%o a063994 n=产品$map（gcd（n-1））。减去1）$a027748_row n

%o---Reinhard Zumkeller，2013年3月2日

%Y参见A002997、A027748。

%不，简单，好

%氧1,3

%A _N.J.A.Sloane，2001年9月18日

%E更多条款摘自2001年9月21日的_Robert G.Wilson v_