A199326 Primes with digits '0', '1' and '6' only.

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

Links

Table of n, a(n) for n=1..44.

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

Cf. A020449 - A020472, A199325 - A199329, A061247.

Sequence in context: A307628 A106993 A066597 * A078554 A189227 A002650

Adjacent sequences: A199323 A199324 A199325 * A199327 A199328 A199329

Keyword

nonn,base

Author

M. F. Hasler, Nov 05 2011

Status

approved