%I #8 Sep 08 2022 08:45:39
%S 11,12,21,24,30,39,45,54,60,66,96,105,126,129,144,156,165,189,201,210,
%T 219,234,240,261,264,291,294,306,336,360,369,396,420,429,450,474,486,
%U 495,501,516,525,534,555,591,606,639,651,654,690,714,726,735,756,765
%N Numbers n such that 2*n + 19 and 2*n - 19 are prime.
%H Vincenzo Librandi, <a href="/A153146/b153146.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[7, 4000], PrimeQ[2 # - 19] && PrimeQ[2 # + 19] &] (* _Vincenzo Librandi_, Oct 20 2012 *)
%o (Magma) [n: n in [7..900] | IsPrime(2*n - 19) and IsPrime(2*n + 19)]; // _Vincenzo Librandi_, Oct 20 2012
%Y Cf. A153041, A097932, A153143.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Dec 19 2008