OFFSET
1,1
MATHEMATICA
Select[FromDigits/@Tuples[{0, 1, 6}, 6], PrimeQ] (* Harvey P. Dale, Dec 25 2018 *)
PROG
(PARI) {L=[0, 1, 6]; for(d=1, 6, u=vector(d, i, 10^(d-i))~; forvec(v=vector(d, i, [1+(i==1 & !L[1]), #L]), ispseudoprime(t=vector(d, i, L[v[i]])*u)&print1(t", ")))} /* see A199327 for a function a() */
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Nov 05 2011
STATUS
approved