%I#36 2016年12月30日06:07:16

%S 1,2,4,6,8,10,12,14,16,18,20,22,24,26,30,32,34,36,38,40,42,44,46,48，

%电话：50,54,56,58,60,62,64,68,72,74,78,80,82,84,86,88,90,92,94,96,98100，

%电话：102104106108110114116118120122126128132134136138

%N个数N，使得N-1和phi（N）是相对素数。

%C A063994（a（n））=1.-_Reinhard Zumkeller，2013年3月2日

%当n>=3.-时，C a（n）=A111305（n-2）_Emmanuel Vantieghem_，2013年7月3日

%C n，使A049559（n）=1。包括A100484和A000079_罗伯特·伊斯雷尔（Robert Israel），2015年11月9日

%C除第一项外，所有项均为偶数。缺失偶数项为A039772_Robert G.Wilson v_，2016年9月26日

%C编号n，使A187730（n）=1_托马斯·奥多夫斯基，2016年12月29日

%H Reinhard Zumkeller，n表，n=1..10000的a（n）</a>

%p选择（n->igcd（n-1，数字理论：-phi（n））=1，[1..1000]）；#_罗伯特·伊斯雷尔（Robert Israel），2015年11月9日

%t选择[Range[200]，GCD[#-1，EulerPhi[#]]==1&]

%o（哈斯克尔）

%o a209211 n=a209211_列表！！（n-1）

%o a209211_list=过滤器（\x->（x-1）`gcd`a000010 x==1）[1..]

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

%o（PARI）isok（n）=gcd（n-1，eulerphi（n））==1；\\_米歇尔·马库斯，2016年9月26日

%Y参见A000010、A000079、A003277、A039772、A049559、A063994、A100484、A111305。

%K nonn公司

%O 1,2号机组

%A _何塞·玛丽亚·格拉·里巴斯（JoséMaríA Grau Ribas），2012年3月6日