OFFSET
1,2
COMMENTS
The sequence is infinite, since every number of the form (10^n-1)/9 with n not divisible by 3 is a member.
MATHEMATICA
Select[Range[3200], Select[Union[IntegerDigits[t=# ]], #!=1&]==Select[Range[2, 9], Mod[t, # ]==0&]&]
PROG
(PARI) isok(k)={my(S=Set(digits(k)), D=select(d->k%d==0, [2..9])); setminus(S, [1])==D} \\ Andrew Howroyd, Sep 19 2024
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 03 2002
EXTENSIONS
Edited by Dean Hickerson, Sep 08 2002
Offset changed by Andrew Howroyd, Sep 19 2024
STATUS
approved