|
%I #16 Sep 08 2022 08:45:17
%S 3,7,13,19,31,61,67,73,79,97,109,151,181,313,373,457,523,541,613,643,
%T 661,709,727,739,769,811,859,991,997,1039,1069,1087,1171,1249,1321,
%U 1327,1381,1399,1483,1657,1663,1693,1747,1777,1801,1867,2053,2113,2239,2251
%N Primes p such that 5*p + 2 and 2*p + 5 are primes.
%C Cf. A023217: Numbers n such that n and 5n + 2 both prime.
%t Select[Prime[Range[220]], PrimeQ[2#+5]&&PrimeQ[5#+2]&]
%o (Magma) [p: p in PrimesUpTo(10000) | IsPrime(5*p+2) and IsPrime(2*p+5)]; // _Vincenzo Librandi_, Nov 13 2010
%Y Cf. A023217.
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
%E More terms from _Vincenzo Librandi_, Mar 28 2010
|
