%I #11 Aug 02 2024 19:01:56
%S 14,26,34,38,62,74,86,94,118,122,134,142,146,158,194,202,206,214,218,
%T 254,274,278,298,302,314,326,334,362,386,394,398,422,446,454,458,482,
%U 514,526,538,542,554,566,614,622,626,634,662,674,694,698,706,734,746
%N Numbers 2p where p is prime and 2p + 1 is composite.
%e 7 is prime, 2*7 + 1 = 15 is composite, so a(1) = 7*2 = 14.
%p a:=proc(n) if isprime(2*ithprime(n)+1)=false then 2*ithprime(n) else fi end: seq(a(n),n=1..100); # _Emeric Deutsch_, Jul 25 2006
%t 2Select[Range[375],PrimeQ[#]&&!PrimeQ[2#+1]&] (* _Stefano Spezia_, Aug 02 2024 *)
%o (PARI) forprime (p=3,200,if (isprime(2*p+1),print1(2*p",")))
%Y Cf. A005277.
%Y Equals 2 * A053176.
%K nonn,easy
%O 1,1
%A _Jon Perry_, Jan 31 2003
%E More terms from _Emeric Deutsch_, Jul 25 2006