login
A075049
Numbers k such that every digit of k is a divisor of k and every divisor of k in the range [2,9] occurs at least once as a digit of k.
0
1, 2, 3, 5, 7, 11, 22, 33, 55, 77, 115, 122, 124, 155, 175, 244, 248, 412, 515, 735, 824, 1111, 1115, 1124, 1131, 1222, 1244, 1311, 1326, 1335, 1362, 1395, 1412, 1555, 1715, 1771, 1935, 2122, 2222, 2248, 2364, 2444, 2488, 2824, 2848, 3111, 3126, 3135, 3162
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
Sequence in context: A334199 A297026 A038204 * A361820 A061165 A183055
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