%I#42 2021年12月20日07:59:35

%S 2,5,11,17,23,29,31,41,47,53,59,61,71,73,83,89101107113131137，

%电话139149151157167173179181191197199211227233239241251，

%电话：25726326927128128329331131733133735335936737333839

%N素数p使得p+4是复合的。

%C使n素数为n*B（n+3）是一个整数，其中B（k）是伯努利数B（1）=-1/2，B（2）=1/6，B（4）=-1/30。。。，对于m>1，B（2m+1）=0。

%如果n是质数n*B（n-1）总是一个整数。注意，如果哥德巴赫猜想（2n=p1+p2表示所有n>=2）是错误的，并且K是失败的n的最小值，那么对于2（K-2）=p3+p4，素数p3和p4必须从这个列表中取出来。参见A140555的类似注释_Keith Backman，2012年4月6日

%C关于A000040（素数）的A023200的补码（素数p使得p+4也是素数）。对于p>2：素数p，因此不存在形式为r^2+p的素数，其中r是素数，是A232010的子序列。例如：素数7不在序列中，因为2^2+7=11（素数）。A232009（a（n））=0，对于n>1_雅罗斯拉夫·克里泽克，2013年11月22日

%H Klaus Brockhaus，<a href=“/A0667775/b0667775.txt”>n的表格，a（n）表示n=1..1026</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Bernoulli数字.html“>伯努利数</a>

%F a（n）~n日志n.-Charles R Greathouse IV_，2013年11月22日

%t A067775={}；Do[p=素数@n；If[IntegerQ[p！BernoulliB[p+3]]，AppendTo[A067775，p]]，{n，77}]；A067775（*_Robert G.Wilson v_，2008年8月19日*）

%t选择[Prime[Range[80]]，而不是[PrimeQ[#+4]]&]（*_Alonso del Arte_2014年4月2日*）

%o（PARI）lista（nn）={对于素数（p=1，nn，if（！isprime（p+4），print1（p，“，”））；）；}\\_Michel Marcus_，2013年11月22日

%Y参见A049591、A140555、A232009、A232010、A232012、A023200。

%K非n

%O 1,1号机组

%2002年2月6日，A _贝尼特·克洛伊特

%E根据_Michel Marcus_的建议，来自_Klaus Brockhaus_的新名称，2013年11月22日