login
Primes p such that 2*p+3 and 16*p+45 are both prime.
1

%I #10 Sep 08 2022 08:45:41

%S 7,17,19,29,43,47,67,73,97,137,139,157,199,223,227,229,269,307,337,

%T 353,383,397,439,467,503,599,643,659,743,773,853,859,1013,1033,1063,

%U 1109,1153,1187,1277,1327,1373,1427,1447,1453,1483,1499,1523,1543,1559,1567

%N Primes p such that 2*p+3 and 16*p+45 are both prime.

%H Vincenzo Librandi, <a href="/A156011/b156011.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Prime[Range[1600]], And @@ PrimeQ[{2# + 3, 16# + 45}]&] (* _Vincenzo Librandi_, Oct 31 2012 *)

%o (Magma) [p: p in PrimesUpTo(1600) | IsPrime(2*p + 3) and IsPrime(16*p + 45)]; // _Vincenzo Librandi_, Oct 31 2012

%Y Cf. A156004, A156005, A156007, A156009, A156010.

%K nonn,easy

%O 1,1

%A _Vincenzo Librandi_, Feb 01 2009