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..10000
MATHEMATICA
Sort[Flatten[Table[Select[FromDigits/@Permutations[PadRight[{}, 2n, {4, 9}]], PrimeQ], {n, 5}]]] (* Harvey P. Dale, Aug 21 2016 *)
PROG
(PARI)\\ Needs B() from A087510.
concat(vector(6, k, B(k, 4, 9, isprime)))
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Paul D. Hanna and Amarnath Murthy, Sep 12 2003
EXTENSIONS
Edited by Charles R Greathouse IV, Oct 28 2009
Offset changed by Andrew Howroyd, Sep 20 2024
STATUS
approved
