OFFSET
1,5
MATHEMATICA
f[n_]:=Length[Select[DigitCount[n, 5], #!=0&]]; Array[f, 100] (* Harvey P. Dale, May 11 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved