%I#14 2020年12月7日01:48:27

%S 5,7,8,9,10,13,17,18,19,21,22,23,24,25,26,27,28,29,30,31,32,33,35,37，

%T 38，40，41，42，43，44，45，46，48，49，50，55，54，55，57，60，61，62，63，64，65，67，

%U 68、69、70、71、73、74、75、76、77、78、79、80、81、82、85、89、91、93、94

%N数N，其中存在素数p<N，使得N^（p-1）==1（mod p^2），即p是base-N Wieferich素数。

%C编号n，使A255920（n）>0。

%A255921的补体。-_Felix Fröhlich，2020年12月3日

%H Felix Fröhlich，n的表，n=1..10000的a（n）</a>

%素数5满足24^（5-1）==1（mod 5^2）和5<24，因此24是序列的项。

%t选择[Range@94，Function[n，Count[Prime@Range@PrimePi@n，p_/；Mod[n^（p-1），p^2]==1]>0]（*_Michael De Vlieger_，2016年5月30日*）

%o（PARI）是（n）=forprime（p=1，n-1，如果（Mod（n，p^2）^（p-1）==1，return（1）））；0

%Y参见A255920、A255921、A273785。

%K非n

%O 1,1号机组

%A_Felix Fröhlich，2016年5月30日