OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Do[ h = IntegerDigits[n]; If[ Sort[h][[1]] != 0 && Length[h]/Apply[Plus, 1/h] == 5, Print[n]], {n, 1, 10^6}]
Select[Range[50000], HarmonicMean[IntegerDigits[#]]==5&] (* Harvey P. Dale, Sep 27 2018 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Vladeta Jovovic, Jun 12 2001
EXTENSIONS
More terms from Robert G. Wilson v, Aug 08 2001
STATUS
approved