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,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

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

Sequence in context: A043040 A342420 A226561 * A002279 A119292 A139258

Adjacent sequences: A062180 A062181 A062182 * A062184 A062185 A062186

Keyword

base,easy,nonn

Author

Vladeta Jovovic, Jun 12 2001

Extensions

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

Status

approved