%I#24 2022年9月8日08:46:03
%S 22,61,851421661691781992683164154514785416827757862,
%电话:10451111123713871618172017382014201420352074213122152305,
%电话:2362241027102770329383013305535327133436134123652401240424069
%N数字k,这样10k+1是复合的,但10k+3、10k+7、10k+9都是质数。
%H V.Raman,<a href=“/A216299/b216299.txt”>n表,n=1..10000的a(n)</a>
%F a(n)>>n log^3 n.-Charles R Greathouse IV_,2012年9月7日
%t={};Do[ps=选择[Range[10*n,10*n+9],PrimeQ];如果[ps=={10*n+3,10*n+7,10*n+9},AppendTo[t,n]],{n,0,4978}];t(*_t.D.Noe_,2012年9月3日*)
%t选择[Range[4100],CompositeQ[10#+1]&&AllTrue[10#+{3,7,9},PrimeQ]&](*需要Mathematica版本10或更高版本*)(*Harvey P.Dale_,2019年9月14日*)
%o(岩浆)[1..4100]中的k:k不是IsPrime(10*k+1),所有{m:m在[3,7,9]中| IsPrime[10*k+m)}];//_Marius A.Burtea,2020年2月2日
%Y参考A032352、A007811、A078494。
%K nonn公司
%O 1,1号机组
%A _V.Raman_,2012年9月3日
|