OFFSET
1,1
LINKS
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Dec 17 2006
EXTENSIONS
Corrected and extended by Ray Chandler, Dec 18 2006
STATUS
approved