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,1

Comments

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

Links

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

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 *)

Prog

(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

Crossrefs

Sequence in context: A015728 A080470 A380885 * A044972 A396652 A132313

Adjacent sequences: A087214 A087215 A087216 * A087218 A087219 A087220

Keyword

nonn,base

Author

Reinhard Zumkeller, Aug 26 2003

Status

approved