OFFSET
1,1
COMMENTS
Only 6 such primes will occur in the 21st century.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Table[Prime[Range[PrimePi[n*10]+1, PrimePi[n*10+10]]], {n, 60}], Length[ #] == 2&]//Flatten (* Harvey P. Dale, Aug 09 2020 *)
PROG
(PARI) decade2pr(n1, n2) = { if(n1==0, n1=10); forstep(x=n1, n2, 10, if(isprime(x+1) && isprime(x+3) && !isprime(x+7) && !isprime(x+9), print1(x+1" "x+3" "); ); if(isprime(x+1) && isprime(x+7) && !isprime(x+3) && !isprime(x+9), print1(x+1" "x+7" "); ); if(isprime(x+1) && isprime(x+9) && !isprime(x+3) && !isprime(x+7), print1(x+1" "x+9" "); ); if(isprime(x+3) && isprime(x+7) && !isprime(x+1) && !isprime(x+9), print1(x+3" "x+7" "); ); if(isprime(x+3) && isprime(x+9) && !isprime(x+1) && !isprime(x+7), print1(x+3" "x+9" "); ); if(isprime(x+7) && isprime(x+9) && !isprime(x+1) && !isprime(x+3), print1(x+7" "x+9" "); ); ); }
(Magma) &cat [PrimesInInterval(10*n+1, 10*n+9): n in [0..50] | #PrimesInInterval(10*n+1, 10*n+9) eq 2]; // Bruno Berselli, Sep 05 2012
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Cino Hilliard, Jan 04 2003
EXTENSIONS
Offset changed to 1 by Alois P. Heinz, Jul 22 2014
STATUS
approved