A181781-OEIS公司

A181781号

数n是一些基b的Euler伪素数，2<=b<=n-2。

三

21, 25, 33, 45, 49, 57, 65, 69, 77, 85, 91, 93, 105, 117, 121, 125, 129, 133, 141, 145, 153, 161, 165, 169, 175, 177, 185, 189, 201, 205, 209, 213, 217, 221, 225, 231, 237, 245, 247, 249, 253, 259, 261, 265, 273, 285, 289, 297, 301, 305, 309, 321, 325, 329, 333, 341, 343, 345

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

链接

阿米拉姆·埃尔达尔，n=1..10000时的n，a（n）表

Karsten Meyer，假性Primzahlen Tabelle（15-4999）

Karsten Meyer，Rexx程序

Eric W.Weisstein，数学世界：Euler伪素数

MAPLE公司

isEulPSP:=proc（n，b），如果isprime（n），则为false；否则m：=modp（b&^（（n-1）/2），n）；如果m=1或m=n-1，则为真；否则为假；结束条件：；结束条件：；结束进程：

isA181781:=proc（n）for b from 2 to n-2 do如果isEulPSP（n，b）然后返回true；结束条件：；end-do：返回false；结束进程：

对于从3到800的n，如果是A181781（n），则执行printf（“%d，”，n）；结束条件：；结束do：#R.J.马塔尔2011年5月30日

数学

fQ[n_？PrimeQ，b_]=假；fQ[n_，b_]：=块[{p=PowerMod[b，（n-1）/2，n]}，p==Mod[1，n]||p==Mod[-1，n]]；gQ[n_]：=AnyTrue[范围[2，n-2]，fQ[n，#]&]；选择[2范围[172]+1，gQ](*迈克尔·德弗利格2015年9月9日之后Jean-François Alcover公司在A006970号，版本10*）

黄体脂酮素

（请参阅链接中的Rexx程序。）

交叉参考

囊性纤维变性。A006970号,A181780号.

上下文中的顺序：A274178号 A118578号 A276700型*A324551型 A338081型 A118568号

相邻序列：1981年 A181779号 A181780号*A181782号 A181783年 A181784号

关键词

非n

作者

卡斯滕·迈耶2010年11月12日

扩展

定义修正人马克斯·阿列克塞耶夫2010年11月12日

编辑的定义与OEIS风格一致。 -N.J.A.斯隆2010年11月13日

状态

经核准的