A096685 Least k such that decimal representation of k*n contains only digits 0 and 6.
6, 3, 2, 15, 12, 1, 858, 75, 74, 6, 6, 5, 462, 429, 4, 375, 3918, 37, 3474, 3, 286, 3, 28722, 25, 24, 231, 24691358, 2145, 227814, 2, 21486, 1875, 2, 1959, 1716, 185, 18, 1737, 154, 15, 1626, 143, 153642, 15, 148, 14361, 1278, 125, 134694, 12, 1306, 1155
Offset: 1
Programs
-
Mathematica
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 *)
Formula
a(n) = A078245(n)/n.
Comments