A086177 Numbers n such that n*prime(n)-3 is prime.
2, 8, 14, 34, 40, 46, 50, 80, 82, 88, 110, 116, 118, 130, 142, 200, 224, 226, 238, 256, 274, 278, 280, 286, 292, 302, 322, 328, 332, 350, 352, 362, 380, 398, 412, 430, 436, 464, 496, 544, 572, 586, 616, 620, 622, 634, 638, 646, 650, 662, 676, 688, 700, 734
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [1..800] | IsPrime(n*NthPrime(n) - 3)]; // Vincenzo Librandi, Oct 05 2012
-
Mathematica
Select[Range[1000], PrimeQ[ # Prime[ # ]-3]&]
Comments