login
A199326
Primes with digits '0', '1' and '6' only.
1
11, 61, 101, 601, 661, 1061, 1601, 6011, 6101, 6661, 10061, 10111, 10601, 11161, 16001, 16061, 16111, 16661, 60101, 60161, 60601, 60611, 60661, 61001, 66161, 66601, 101111, 101161, 101611, 106661, 110161, 111611, 116101, 160001, 161611, 166601, 600011, 600101, 600601, 601061, 610661, 611011, 611101, 611111
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