A076747 List giving pairs of primes of the form 10k+3 and 10k+13.

3, 13, 13, 23, 43, 53, 73, 83, 103, 113, 163, 173, 223, 233, 283, 293, 373, 383, 433, 443, 643, 653, 673, 683, 733, 743, 853, 863, 1093, 1103, 1153, 1163, 1213, 1223, 1423, 1433, 1483, 1493, 1543, 1553, 1723, 1733, 1993, 2003, 2053, 2063, 2143, 2153

Offset: 1

Author

Cino Hilliard, Nov 12 2002

Keywords

• nonn

Comments

Except for 3,13, each pair is 30k+13 and 30k+23.

Examples

			163 and 173 are in the sequence because both are prime; 193 and 203 aren't because not both are primes.
		

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A076746.

Programs

Magma

&cat[[10*k+3, 10*k+13]: k in [0..250]| IsPrime(10*k+3) and IsPrime(10*k+13)]; // Vincenzo Librandi, Jun 08 2016

Mathematica

Flatten[Select[Table[10 n + {3, 13}, {n, 0, 300}], And@@PrimeQ[#] &]] (* Vincenzo Librandi, Jun 08 2016 *)

PARI

forstep(x=3,2200,10, if(isprime(x) && isprime(x+10), print1(x" "x+10" ")))

Extensions

Edited by Don Reble, Jun 08 2003