|
%I #18 Sep 08 2022 08:44:59
%S 5,11,13,29,31,41,47,61,67,79,89,127,139,149,179,181,191,197,269,307,
%T 337,347,367,383,421,467,487,541,547,569,613,641,727,809,811,821,823,
%U 883,887,941,1031,1033,1087,1093,1103,1117,1193,1201,1237,1259,1279,1283
%N Primes p such that 30030*p + 1 is also prime.
%H Michael De Vlieger, <a href="/A051654/b051654.txt">Table of n, a(n) for n = 1..10000</a>
%e p = 5 and 30030*p + 1 = 150151 are both primes.
%t Select[Prime@ Range@ 210, PrimeQ[30030 # + 1] &] (* _Michael De Vlieger_, Aug 15 2017 *)
%o (PARI) isok(p) = isprime(p) && isprime(30030*p+1); \\ _Michel Marcus_, Dec 19 2013
%o (Magma) [p: p in PrimesUpTo (1300) | IsPrime(30030*p+1)]; // _Vincenzo Librandi_, Aug 16 2017
%Y Cf. A005384, A002110, A005385.
%K nonn
%O 1,1
%A _Labos Elemer_
%E More terms from _Michel Marcus_, Dec 19 2013
|
