|
%I #5 Nov 13 2022 15:31:09
%S 12022,15298,44413,61507,72199,87463,96538,108862,112129,117694,
%T 122176,125716,175078,185746,201493,227221,250414,267844,273460,
%U 371194,387028,391765,397066,397792,454921,581365,601177,621010,642199,659788,677206
%N Numbers n such that 10000000n+1, 10000000n+3, 10000000n+7, 10000000n+9 are all primes.
%t Select[Range[10^6/2], PrimeQ[10^7# + 1] && PrimeQ[10^7# + 3] && PrimeQ[10^7# + 7] && PrimeQ[10^7# + 9] &]
%t Select[Range[678000],AllTrue[# 10^7+{1,3,7,9},PrimeQ]&] (* _Harvey P. Dale_, Nov 13 2022 *)
%Y Cf. A007811 and A064687.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Oct 29 2001
|
