%I #8 Sep 08 2022 08:45:41
%S 2,3,7,13,19,43,61,67,79,97,109,127,151,163,181,211,223,229,277,307,
%T 331,373,379,397,457,463,523,601,607,613,673,727,733,751,757,853,883,
%U 907,919,967,1021,1033,1069,1117,1171,1201,1231,1237,1321,1327,1381,1399
%N Primes p such that 4*p - 5 is also prime.
%H Vincenzo Librandi, <a href="/A156300/b156300.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1400]], PrimeQ[(4# - 5)]&] (* _Vincenzo Librandi_, Oct 31 2012 *)
%o (Magma) [p: p in PrimesUpTo(1400) | IsPrime(4*p - 5)]; // _Vincenzo Librandi_, Oct 31 2012
%Y Cf. A156287, A156288.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Feb 07 2009