|
%I #7 Oct 02 2021 16:43:03
%S 10,12,30,24,15,36,70,48,90,100,110,120,130,140,150,160,170,180,190,
%T 120,210,220,230,240,125,260,270,280,290,300,310,320,330,340,350,360,
%U 370,380,390,240,410,420,430,440,450,460,470,480,490,150,510,520,530
%N In decimal representation: smallest multiple of n containing it as substring.
%C a(n) = n*A086064(n).
%H Harvey P. Dale, <a href="/A087217/b087217.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Aug 26 2003
|
