%I#7 2024年4月10日09:41:18

%S 0,0,0,1,0,10,2,1,0,3,0,1,1,4,0,4,4,3,3,1,1,0,5,3,1,5,0,4，4,3,1，

%T 1,7,0,1,1,8,0,6,2,3,3,1,0,9,2,3,1,8,1,6,3,6,1,2,0,9,1,7,1,6,2,4，

%U 1,9,0,11,2,1,7,6,1,7,3,10,5,3,0,8,4,1,1

%以N为基数的小于N的伪素数。

%H Amiram Eldar，n的表，a（n）表示n=2..10001</a>

%H维基百科，<a href=“http://en.wikipedia.org/wiki/Pseudoprime（维基百科全书）“>伪素数</a>。

%H<a href=“/index/Ps#伪素数”>与伪素数相关的序列的索引项。

%F a（n）=0，当且仅当A090086（n）>n时，或等效地，n-1在A316504中。

%e a（2）=0，因为基2（A001567）的最小伪素数是341，大于2。

%e a（5）=1，因为基5（A005936）有一个伪素数小于5:4。

%e a（9）=2，因为基9（A020138）有2个伪素数小于9:4和8。

%t a[n_]：=计数[范围[4，n-1]，_？（CompositeQ[#]&PowerMod[n，#-1，#]==1&）]；数组[a，100，2]

%o（PARI）a（n）={my（c=0）；对于复合（k=4，n-1，if（Mod（n，k）^（k-1）==1，c++））；c；}

%Y参见A001567、A005936、A020138、A090086、A316504、A371730。

%K nonn，简单

%氧2,8

%A _Amiram Eldar，2024年4月5日