A124476 Smallest multiple of A047201(n) (i.e., numbers not divisible by 5) with only digits 6 and 7.
67, 76, 6777, 76, 7776, 6776, 776, 6777, 6677, 7776, 676, 6776, 7776, 6766, 7776, 76, 67767, 6776, 667, 7776, 676, 6777, 6776, 667, 67766, 7776, 66777777, 6766, 7776, 666777, 76, 77766, 7667, 76776, 676777, 6776, 67666, 667776, 7776, 67767, 67677
Offset: 1
Links
Programs
-
Mathematica
f[n_] := Block[{k = n},While[Union @ IntegerDigits[k] != {6, 7}, k += n];k];f /@ Select[Range[52], Mod[ #, 5] > 0 &] (* Ray Chandler, Dec 18 2006 *)
Extensions
Corrected and extended by Ray Chandler, Dec 18 2006