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
Harvey P. Dale, Table of n, a(n) for n = 1..5000
MATHEMATICA
Sort[Select[FromDigits/@Flatten[Permutations/@Table[PadRight[{}, 2n, {3, 5}], {n, 5}], 1], PrimeQ]] (* Harvey P. Dale, Oct 24 2012 *)
PROG
(PARI) \\ Needs B() from A087510.
concat(vector(6, k, B(k, 3, 5, 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
STATUS
approved