|
%I #16 Sep 08 2022 08:45:23
%S 3,13,37,43,61,103,127,157,181,223,241,283,313,373,421,463,523,541,
%T 577,607,631,661,673,787,811,853,883,1021,1087,1093,1153,1231,1237,
%U 1297,1303,1531,1567,1741,1753,1777,1783,1867,2113,2131,2143,2161
%N Primes p such that 17*p + 2 is also prime.
%C Intersection of A000040 and A113487. - _Iain Fox_, Feb 27 2018
%H Iain Fox, <a href="/A113115/b113115.txt">Table of n, a(n) for n = 1..10000</a>
%e If p=223 then 17*p + 2 = 3793 (prime).
%t Select[Prime[Range[400]],PrimeQ[17#+2]&] (* _Harvey P. Dale_, Jul 17 2021 *)
%o (Magma) [p: p in PrimesUpTo(3000)| IsPrime(17*p+2)] // _Vincenzo Librandi_, Jan 29 2011
%o (PARI) lista(nn) = forprime(p=3, nn, if(isprime(17*p + 2), print1(p, ", "))) \\ _Iain Fox_, Feb 27 2018
%Y Cf. A112391, A113487.
%K nonn
%O 1,1
%A _Parthasarathy Nambi_, Jan 03 2006
|
