A153146 Numbers n such that 2*n + 19 and 2*n - 19 are prime.
11, 12, 21, 24, 30, 39, 45, 54, 60, 66, 96, 105, 126, 129, 144, 156, 165, 189, 201, 210, 219, 234, 240, 261, 264, 291, 294, 306, 336, 360, 369, 396, 420, 429, 450, 474, 486, 495, 501, 516, 525, 534, 555, 591, 606, 639, 651, 654, 690, 714, 726, 735, 756, 765
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [7..900] | IsPrime(2*n - 19) and IsPrime(2*n + 19)]; // Vincenzo Librandi, Oct 20 2012
-
Mathematica
Select[Range[7, 4000], PrimeQ[2 # - 19] && PrimeQ[2 # + 19] &] (* Vincenzo Librandi, Oct 20 2012 *)