%I#15 2019年4月14日01:42:05

%S 2,3,7,11,23,31,41,43,47,59,67,71,79,83,89103107131137139167，

%电话1791912112232272323925326327128328331131331347359，

%电话：367379383409419431439443457463467479499503521547563569

%N素数p，其中p-1的除数是2的幂。

%H Harvey P.Dale，n的表，n=1..1000的a（n）</a>

%p isA000079：=proc（n）RETURN（n=1或numtheory[因子集]（n）=｛2｝）；结束：A165318：=进程（n），如果n=1，则为2；否则p:=下一素数（进程名（n-1））；当不是A000079（数字[tau]（p-1））时，做p:=下一素数（p）；od；p；fi；结束：序列（A165318（n），n=1..90）；#_R.J.Mathar，2009年9月18日

%t选择[Prime[Range[200]]，IntegerQ[Log[2，Divisor Sigma[0，#-1]]&]（*哈维·P·达尔，2018年10月14日*）

%Y参考A165319、A165320。

%K nonn公司

%O 1,1号机组

%A _罗伊查询，2009年9月14日

%E更多条款来自R.J.Mathar_，2009年9月18日