A062183 Numbers such that harmonic mean of digits is 5.

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

Author

Vladeta Jovovic, Jun 12 2001

Keywords

• base
• easy
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A062179-A062185, A061383-A061388, A061423-A061425.

Programs

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 *)

Extensions

More terms from Robert G. Wilson v, Aug 08 2001