cp's OEIS Frontend

A181060 a(n) is the smallest positive multiple of n whose decimal digits are all 0, 1 or 2.

%I A181060 #22 May 17 2020 11:19:30
%S A181060 1,2,12,12,10,12,21,112,12222,10,11,12,221,112,120,112,102,12222,1102,
%T A181060 20,21,22,1012,120,100,1222,21222,112,1102,120,2201,1120,1122,102,210,
%U A181060 22212,111,1102,10101,120,11111,210,2021,220,122220,1012,1222,1200
%N A181060 a(n) is the smallest positive multiple of n whose decimal digits are all 0, 1 or 2.
%H A181060 David A. Corneth, <a href="/A181060/b181060.txt">Table of n, a(n) for n = 1..10000</a>
%H A181060 Inspired by Project Euler, Problem 303: <a href="http://projecteuler.net/index.php?section=problems&amp;id=303">Multiples with small digits</a>.
%e A181060 a(9)=12222 because 12222 is the smallest multiple of 9 whose decimal digits are all 0, 1 or 2.
%t A181060 With[{pms=Rest[Flatten[FromDigits/@Tuples[{0,1,2},6]]]},Table[ SelectFirst[ pms, Divisible[ #,n]&],{n,50}]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 24 2017 *)
%o A181060 (PARI) a(n) = my(k=1); while(vecmax(digits(k*n))>2, k++); k*n; \\ _Michel Marcus_, May 17 2020
%Y A181060 a(n)/n yields sequence A181061.
%K A181060 base,easy,nonn
%O A181060 1,2
%A A181060 _Herman Beeksma_, Oct 01 2010