提出
经核准的
编辑
a（n）=复合材料（c=1，如果（是_A001262号a001262号（c，n），返回（c））\\费利克斯·弗罗利奇（Felix Fröhlich）2018年3月28日
（PARI）is_a001262（n，a）={（位测试（n，0）&&！isprime（n）&&n>8）||return；my（s=赋值（n-1，2））；如果（1==a=Mod（a，n）^（n>>s），return（1））；而（a！=-1&s--，a=a^2）；a==-1}\\之后M.F.哈斯勒在里面A001262号
a（n）=复合材料（c=1，如果（是_A001262号（c，n），返回（c））\\费利克斯·弗罗利奇（Felix Fröhlich）2018年3月28日
a（n）=9当且仅当n==1或8（mod 9）-罗伯特·伊斯雷尔2018年3月27日
Robert Israel，<a href=“/A298756型/b298756.txt“>n、a（n）表（n=2..10000）</a>
过滤器：=proc（n，b）局部d，s，r；
如果isprime（n），则返回false fi；
s： =padic:-ordp（n-1，2）；
d： =（n-1）/2^s；
如果b&^d mod n=1，则返回真fi；
对于从0到s-1的r do
如果b&^（d*2^r）+1 mod n=0，则返回真fi
od；
假
结束进程：
f： =proc（b）局部n；
对于从9乘2得到的n，如果过滤器（n，b），则返回n fiod
地图（f，[2..100]美元）#罗伯特·伊斯雷尔2018年3月27日
