|
%I #6 Sep 21 2022 19:21:41
%S 17,29,41,59,61,67,73,79,83,89,103,107,109,131,139,151,157,167,173,
%T 181,193,211,223,229,239,241,263,277,283,293,311,317,337,359,373,397,
%U 401,419,439,461,463,467,479,487,499,509,523,547,563,601,607,613,619,631
%N Both p and p+Q(6) are primes, where Q(6)=30030 is the 6th primorial number (A002110[ 6 ]).
%C p and p+30030 are not necessarily consecutive primes
%e 17 and 17 + 2*3*5*7*11*13 = 30047 is prime
%t Select[Prime[Range[150]],PrimeQ[#+30030]&] (* _Harvey P. Dale_, Sep 21 2022 *)
%Y A045320, A001359, A023201, sequs for p+primorial cases
%K nonn
%O 1,1
%A _Labos Elemer_
|
