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
Select[FromDigits/@Flatten[Permutations/@Table[PadRight[{}, 2n, {4, 3}], {n, 5}], 1], PrimeQ]//Sort (* Harvey P. Dale, Aug 08 2017 *)
PROG
(PARI) \\ Needs B() from A087510.
concat(vector(6, k, B(k, 3, 4, isprime))) \\ Andrew Howroyd, Sep 21 2024
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Paul D. Hanna and Amarnath Murthy, Sep 12 2003
STATUS
approved