A199326 Primes having only {0, 1, 6} as digits.

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

Author

M. F. Hasler, Nov 05 2011

Keywords

• nonn
• base

Links

• Jason Bard, Table of n, a(n) for n = 1..10000

Crossrefs

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

Programs

Mathematica

Select[FromDigits/@Tuples[{0,1,6},6],PrimeQ] (* Harvey P. Dale, Dec 25 2018 *)

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() */