|
%I #35 Apr 09 2020 10:29:41
%S 2,2,222,20,20,222,2002,200,222222222,20,22,2220,2002,2002,2220,2000,
%T 22202,222222222,22002,20,20202,22,220202,22200,200,2002,2202222222,
%U 20020,2202202,2220,222022,20000,222222,22202,20020,2222222220,222
%N Smallest multiple of n using only digits 0 and 2.
%C a(n) = min{A169965(k): k > 1 and A169965(k) mod n = 0}. - _Reinhard Zumkeller_, Jan 10 2012
%H Reinhard Zumkeller and Chai Wah Wu, <a href="/A078241/b078241.txt">Table of n, a(n) for n = 1..9998</a> First 998 terms from Reinhard Zumkeller.
%F a(n) < 10^n / (0.45 n). - _Charles R Greathouse IV_, Jan 09 2012
%F a(n) <= A216812(n) <= 2(10^n - 1)/9. - _N. J. A. Sloane_, Sep 18 2012
%t Module[{m=Rest[FromDigits/@Tuples[{0,2},12]]},Table[Select[m,Divisible[ #,n]&,1],{n,40}]]//Flatten (* _Harvey P. Dale_, Jul 31 2017 *)
%o (Haskell)
%o a078241 n = head [x | x <- tail a169965_list, mod x n == 0]
%o -- _Reinhard Zumkeller_, Jan 10 2012
%o (Python)
%o def A078241(n):
%o if n > 0:
%o for i in range(1,2**n):
%o x = 2*int(bin(i)[2:])
%o if not x % n:
%o return x
%o return 0 # _Chai Wah Wu_, Dec 30 2014
%Y Cf. A004290, A078242-A078248, A079339, A096681-A096688, A181060, A181061, A216481, A216812.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 23 2002
%E More terms from _Ray Chandler_, Jul 12 2004
|
