|
%I #15 Sep 08 2022 08:45:23
%S 3,5,11,23,53,59,83,89,149,191,263,269,293,353,359,389,401,419,431,
%T 443,461,479,521,599,653,683,761,809,821,881,941,971,983,1013,1061,
%U 1091,1103,1151,1181,1193,1283,1511,1571,1613,1619,1931,1973,2063
%N Primes p such that 19*p + 2 is also prime.
%H Daniel Starodubtsev, <a href="/A113151/b113151.txt">Table of n, a(n) for n = 1..10000</a>
%e If p=263 then 19*p + 2 = 4999 (prime).
%t Select[Prime[Range[500]],PrimeQ[19#+2]&] (* _Harvey P. Dale_, Dec 12 2012 *)
%o (Magma) [p: p in PrimesUpTo(3000)| IsPrime(19*p+2)] // _Vincenzo Librandi_, Jan 29 2011
%K nonn
%O 1,1
%A _Parthasarathy Nambi_, Jan 04 2006
|
