1，1

成员nA274720使得n的非平凡除数不在A274720.

成员包括：

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

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

罗伯特·以色列，n=1..10000的n，a（n）表

39是会员，因为它在A274720它的非平凡除数3和13不在A274720.

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

#Wieferich素数

素数：=选择（isprime，[顺序（i，i=3..N/3）]）：

S： ={}：

对于质数中的q

m:=数量-顺序（2，q）；

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

S:=S联合选择（`<=`，map（`*`，ps，q），N）

外径：

排序（转换（S，list））；

A274720=选择[范围[1，2000，2]！CoprimeQ[MultiplicativeOrder[2，#]，#]&]；选择[A274720，非真[除数[#][[2；；-2]]，MemberQ[A274720, #]&]&] (*让·弗朗索瓦·阿尔科弗2019年4月27日*）

囊性纤维变性。A001220型,A002326号,A274720

上下文顺序：A340482型 A324722型 A295230型*A338909飞机 A173456号 邮编：A192192

相邻序列：A273199号 A273200 A273201*A273203型 A273204号 A273205型

不

罗伯特·以色列2016年7月27日

经核准的