A087217 In decimal representation: smallest multiple of n containing it as substring.

10, 12, 30, 24, 15, 36, 70, 48, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 120, 210, 220, 230, 240, 125, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 240, 410, 420, 430, 440, 450, 460, 470, 480, 490, 150, 510, 520, 530

Offset: 1

Author

Reinhard Zumkeller, Aug 26 2003

Keywords

• nonn
• base

Comments

a(n) = n*A086064(n).

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Programs

Mathematica

smn[n_]:=Module[{k=2},While[SequenceCount[IntegerDigits[k*n],IntegerDigits[ n]]<1,k++];k*n]; Array[smn,60] (* Harvey P. Dale, Oct 02 2021 *)

Python

def a(n):
    s = str(n)
    return next(mn for mn in range(2*n, 11*n, n) if s in str(mn))
print([a(n) for n in range(1, 55)]) # Michael S. Branicky, Feb 23 2025