OFFSET
1,1
LINKS
Jean-Marc Falcoz, Table of n, a(n) for n = 1..1003
FORMULA
Up to 10^12 there are only 1003 terms and the n-th term seems to be roughly n^(10/e). - Jean-Marc Falcoz, Mar 28 2009
PROG
(PARI) isDW(p, i=1)={while(p>i*=10, setminus(Set(divrem(p, i)), a)||return(eval(Set(Vec(Str(p)))[1]))); p<9}
a=[]; forprime( p=2, 99999, isDW(p) & !print1(p", ") & a=setunion(a, Set(p))) \\ M. F. Hasler, Mar 28 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
David W. Wilson, Mar 27 2009
EXTENSIONS
More terms from M. F. Hasler, Mar 28 2009
STATUS
approved