%我#14 2018年2月3日12:28:41

%S 3546223394646272378423851481260576358502664410100509163716，

%电话：1719189387630978014896944422037071253277165220093838816466，

%电话：9078745693001107298247081029536928878121341810295658419413905899616248628

%N a（N）=二项式（2*c-1，c-1）（mod c^4），其中c是第N个复合数。

%C复合C，其中a（n）=1可以称为“Wolstenholme伪素数”。是否存在此类复合材料？

%C是“Wolstenholme伪素数”的一个必要条件是它是A228562或A267824的项。

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

%p R：=空：

%p计数：=0:F:=10；

%当计数<100 do时，n从4开始为p

%p F：=F*（4*n-2）/n；

%p如果不是isprime（n），则

%p计数：=计数+1；

%p R：=R，F mod（n^4）；

%功率因数

%日期：

%p R；编号_罗伯特·伊斯雷尔，2018年2月2日

%t表[Mod[二项式[2 c-1，c-1]，c^4]，{c，Select[Range@50，CompositeQ]}]（*Michael De Vlieger_，2018年2月1日*）

%o（PARI）用于复合材料（c=1200，打印1（升力（模态（二项式（2*c-1，c-1），c^4）），“，”）

%o（Python）

%o来自复合辛导入二项式

%o定义A298946（n）：

%o c=复合（n）

%o返回二项式（2*c-1，c-1）%c**4#_Chai Wah Wu_，2018年2月2日

%Y参见A088164、A228562、A244214、A267824、A281302、A298944和A298945。

%K nonn公司

%O 1，1

%A_Felix Fröhlich，2018年1月30日