login
A062183
Numbers such that harmonic mean of digits is 5.
1
5, 55, 555, 5555, 26999, 28888, 29699, 29969, 29996, 33999, 34688, 34868, 34886, 36488, 36666, 36848, 36884, 38468, 38486, 38648, 38684, 38846, 38864, 39399, 39939, 39993, 43688, 43868, 43886, 44488, 44666, 44848, 44884, 46388, 46466
OFFSET
1,1
LINKS
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 *)
KEYWORD
base,easy,nonn
AUTHOR
Vladeta Jovovic, Jun 12 2001
EXTENSIONS
More terms from Robert G. Wilson v, Aug 08 2001
STATUS
approved