%I#9 2019年4月27日05:22:12

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

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

%电话：98100102104106108110114116118120122126128132134136138

%N数N，使得a^（N-1）==1（mod N^2）没有带1<a<N^2-1的解。

%C1和数字n，使A185103（n）=n^2+（-1）^n。

%C A280199的补充。

%C A000244和A209211的联合。

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

%e a（4）=4在序列中，因为a（3）==1（mod 4^2）除了a（4（2））外没有其他解。

%e a（7）=9在序列中，因为a（8）==1（mod 9^2）没有解，除了a（9）==1（mod 9）^2）和a（9 ^2）==80，以及80=9 ^2-1。

%p Aeven：=选择（t->igcd（t-1，数字理论：-phi（t^2））=1，{seq（i，i=2..1000,2}}）：

%p Aodd:={seq（3^i，i=0..floor（log[3]（1000））}：

%p排序（convert（Aeven union Aodd，list））；

%t Aeven=选择[Range[2，1000，2]，GCD[#-1，EulerPhi[#^2]==1&]；

%t Aodd=3^范围[0，楼层[Log[3，1000]]；

%t联盟[Aeven，Aodd]（*_Jean-François Alcover_，2019年4月27日，摘自枫叶*）

%Y参见A000244、A185103、A209211、A280199。

%K nonn公司

%O 1,2号机组

%以色列罗贝尔特和霍马斯·奥尔多夫斯基，2016年12月28日