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).
The number of digits in a term is even but not a multiple of 6. - Robert Israel, Oct 30 2019
LINKS
Robert Israel, Table of n, a(n) for n = 1..6235
MAPLE
F:= proc(d) local C, c;
if d mod 3 = 0 then return NULL fi;
C:= map(t -> [0, op(t)], combinat:-choose([$1..d-1], d/2-1));
C:= map(t -> 2*(10^d-1)/9 + 7*add(10^c, c=t), C);
op(sort(select(isprime, C)))
end proc:
seq(F(d), d=2..14, 2); # Robert Israel, Oct 30 2019
PROG
(PARI) \\ Needs B() from A087510.
concat(vector(6, k, B(k, 2, 9, isprime))) \\ Andrew Howroyd, Sep 21 2024
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Paul D. Hanna and Amarnath Murthy, Sep 12 2003
EXTENSIONS
Offset corrected by Robert Israel, Oct 30 2019
STATUS
approved