OFFSET
1,1
COMMENTS
There are 18 digit pairs which can produce such primes. (1,0),(1,3),(1,4),(1,6),(1,7),(1,9),(2,3),(2,9),(3,4),(3,5),(3,7),(3,8),(4,7),(4,9),(5,9),(6,7),(7,9),(8,9).
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..9185
MATHEMATICA
Select[Flatten[Table[FromDigits/@Permutations[Join[Table[3, {i}], Table[7, {i}]]], {i, 7}]], PrimeQ] (* from Harvey P. Dale *)
PROG
(PARI) \\ Needs B() from A087510.
concat(vector(6, k, B(k, 3, 7, isprime))) \\ Andrew Howroyd, Sep 20 2024
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Paul D. Hanna, Sep 12 2003
EXTENSIONS
Edited by Charles R Greathouse IV, Oct 28 2009
Offset changed and a(23) onwards from Andrew Howroyd, Sep 20 2024
STATUS
approved