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.

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.

Links

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

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

Adjacent sequences: A075046 A075047 A075048 * A075050 A075051 A075052

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