OFFSET
1,1
LINKS
C. K. Caldwell, Prime Curios! 80
EXAMPLE
n=1 gives these four primes: 23, 37, 53 and 73.
PROG
(PARI) for(n=1, 5, pdn=vector(10^n-10^(n-1)); i=1; for(k=10^(n-1)+1, 10^n-3, if(isprime(k), pdn[i]=k; i++)); s=0; for(l=1, i-1, for(m=1, i-1, if(isprime(pdn[l]*(10^n)+pdn[m]), s++))); print1(s", ")) \\ Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Patrick De Geest, Sep 15 2000
EXTENSIONS
a(5) from Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008
a(6)-a(7) from Donovan Johnson, Dec 19 2010
STATUS
approved
