A124849 Numbers k such that 7k + 3 and 3k + 7 are primes.
0, 2, 4, 8, 10, 22, 32, 34, 40, 44, 50, 52, 58, 68, 74, 88, 92, 110, 122, 134, 142, 160, 164, 178, 188, 208, 212, 242, 250, 260, 268, 272, 304, 320, 334, 344, 352, 370, 374, 382, 388, 398, 424, 428, 440, 458, 464, 472, 484, 494, 508, 520, 524, 538, 550, 554, 572
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [0..1000] | IsPrime(7*n+3) and IsPrime(3*n+7)] // Vincenzo Librandi, Mar 26 2010
-
Mathematica
Select[Range[0,600],AllTrue[{7#+3,3#+7},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 27 2018 *)
Comments