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,2

Comments

Intersection of A089033 and A089953.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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 *)

Prog

(Magma) [n: n in [0..1000] | IsPrime(7*n+3) and IsPrime(3*n+7)] // Vincenzo Librandi, Mar 26 2010

Crossrefs

Cf. A089033, A089953, A124850.

Sequence in context: A004655 A127101 A308832 * A056654 A365002 A370663

Adjacent sequences: A124846 A124847 A124848 * A124850 A124851 A124852

Keyword

nonn

Author

Zak Seidov, Nov 10 2006

Status

approved