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

Comments

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

Links

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

Example

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

Mathematica

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

Prog

(PARI) forstep(x=3, 2200, 10, if(isprime(x) && isprime(x+10), print1(x" "x+10" ")))
(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

Crossrefs

Cf. A076746.

Sequence in context: A054767 A137947 A168437 * A198452 A286190 A224693

Adjacent sequences: A076744 A076745 A076746 * A076748 A076749 A076750

Keyword

nonn

Author

Cino Hilliard, Nov 12 2002

Extensions

Edited by Don Reble, Jun 08 2003

Status

approved