OFFSET
1,1
MATHEMATICA
s={3, 5, 7}; Do[Do[Do[k=m*(10^n-1)/9*10+j; If[j!=m && PrimeQ[k], AppendTo[s, k]], {j, 1, 9, 2}], {m, 1, 9, 2}], {n, 1, 8}]; s (* Amiram Eldar, Nov 08 2018 *)
PROG
(PARI) lista(nn) = {print1("3, 5, 7, "); for (n=1, nn, r = (10^n-1)/9; forstep (i=1, 9, 2, forstep(j=1, 9, 2, if (i != j, if (isprime(p=fromdigits(concat(digits(r*i), j))), print1(p, ", ")); ); ); ); ); } \\ Michel Marcus, Nov 28 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Enrique Navarrete, Nov 07 2018
EXTENSIONS
a(35)-a(42) from Amiram Eldar, Nov 08 2018
STATUS
approved