OFFSET
1,1
MATHEMATICA
dc5Q[n_]:=Count[DigitCount[n, 6], _?(#>0&)]==5; Select[Range[2000], dc5Q] (* Harvey P. Dale, Apr 12 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved