%I#35 2021年5月9日02:16:26

%S 9,21,25,39,49,55,57111121155169183201203205219237253289，

%电话：2913013053093273553614174534894975055295435795633，

%电话：655689723737755791813841889905921399559619799931011

%N A274720的最低条款。

%A274720中m的术语，使得A274720.中没有m的非平凡除数。

%C条款包括以下内容：

%Cp^（b+1），其中p是奇数素数，b是最大指数k，使得p^k除以2^（p-1）-1（特别是如果p不是Wieferich素数，则b=1）。

%Cp*q，其中p<q是奇数素数，p除以2模q的阶数。

%H Robert Israel，<a href=“/A273202/b273202.txt”>n，a（n）表，n=1.-10000</a>

%e39是一个项，因为它在A274720中，它的非平凡除数3和13不在A27472中。

%p N:=10000:#小于1093^2，所以我们不需要担心

%p#Wieferich素数

%p素数：=选择（isprime，[seq（i，i=3..N/3）]）：

%p S：={}：

%质数do中q的p

%p m：=数量理论：-顺序（2，q）；

%pps:=numtheory:-因子集（m）并集{q}减去{2}；

%p S:=S并集选择（`<=`，映射（`*`，ps，q），N）

%日期：

%p排序（转换（S，列表））；

%t A274720=选择[范围[1，2000，2]！互质Q[乘法顺序[2，#]，#]&]；选择[A274720，NoneTrue[Divisors[#][[2；；-2]]，MemberQ[A274720，#]&]&]（*_Jean-François Alcover_，2019年4月27日*）

%Y参考A001220、A002326、A274720。

%K nonn公司

%O 1，1

%2016年7月27日以色列罗贝尔特