%I #7 Dec 29 2013 17:25:11
%S 6,3,2,15,12,1,858,75,74,6,6,5,462,429,4,375,3918,37,3474,3,286,3,
%T 28722,25,24,231,24691358,2145,227814,2,21486,1875,2,1959,1716,185,18,
%U 1737,154,15,1626,143,153642,15,148,14361,1278,125,134694,12,1306,1155
%N Least k such that decimal representation of k*n contains only digits 0 and 6.
%C k*n may comprise digits of 6 or both 0 and 6. - _Harvey P. Dale_, Dec 29 2013
%F a(n) = A078245(n)/n.
%t k06[n_]:=Module[{k=1},While[Max[Drop[DigitCount[k*n],{6,10,4}]]>0,k++]; k]; Array[k06,52] (* _Harvey P. Dale_, Dec 29 2013 *)
%Y Cf. A004290, A078241-A078248, A079339, A096681-A096688.
%K base,nonn
%O 1,1
%A _Ray Chandler_, Jul 12 2004
|