close
login
A062184
Harmonic mean of digits is 6.
1
6, 66, 488, 666, 848, 884, 3999, 4688, 4868, 4886, 6488, 6666, 6848, 6884, 8468, 8486, 8648, 8684, 8846, 8864, 9399, 9939, 9993, 36999, 38888, 39699, 39969, 39996, 44999, 46688, 46868, 46886, 48668, 48686, 48866, 49499, 49949, 49994, 63999
OFFSET
1,1
LINKS
MATHEMATICA
Do[ h = IntegerDigits[n]; If[ Sort[h][[1]] != 0 && Length[h]/Apply[Plus, 1/h] == 6, Print[n]], {n, 1, 10^6}]
(* Alternative: *)
Select[Range[64000], HarmonicMean[IntegerDigits[#]]==6&] (* Harvey P. Dale, Jul 31 2026 *)
KEYWORD
base,easy,nonn,changed
AUTHOR
Vladeta Jovovic, Jun 12 2001
EXTENSIONS
More terms from Robert G. Wilson v, Aug 08 2001
STATUS
approved