%I#33 2022年3月17日13:52:34
%第49,91119133169217221247259289301323329343361403413页,
%电话:42746948149751152755355989611629637679703707721731,
%电话:7497637677937998178338718898939239319499599619731003102710371043
%N没有Sophie Germain素因子的复合数。
%C A157342是一个子序列。第一个差异是a(14)=343。
%C A350705也是一个后续产品。
%H Karl-Heinz Hofmann,n的表,n的a(n)=1..10000</a>
%e a(2)=91=7*13和{7,13}不在A005384中。
%t选择[Range[1000],CompositeQ[#]&&AllTrue[FactorInteger[#][[;;,1]]!PrimeQ[2*#1+1]&]&](*_Amiram Eldar_,2022年2月12日*)
%o(Python)
%o来自症状输入素数,isprime
%o打印([n代表范围(21044)中的n,如果不是素数(n),则全部打印(p代表素数(n)中的p,则全部为非素数(p*2+1)])
%o(PARI)isok(m)=如果(m>1)&&!i素数(m)#选择(x->i素数(2*x+1),因子(m)[,1]);\\_米歇尔·马库斯,2022年2月11日
%Y参考A157342、A005384、A053176、A350705、A35070%。
%K nonn公司
%O 1,1号机组
%A _Karl-Heinz Hofmann,2022年2月11日