login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Harmonic mean of digits is 8.
8

%I #7 Nov 21 2013 12:47:30

%S 8,88,888,6999,8888,9699,9969,9996,68999,69899,69989,69998,86999,

%T 88888,89699,89969,89996,96899,96989,96998,98699,98969,98996,99689,

%U 99698,99869,99896,99968,99986,688999,689899,689989,689998,698899,698989

%N Harmonic mean of digits is 8.

%t Do[ h = IntegerDigits[n]; If[ Sort[h][[1]] != 0 && Length[h]/Apply[Plus, 1/h] == 8, Print[n]], {n, 1, 10^6}]

%t Select[Range[700000],DigitCount[#,10,0]==0&&HarmonicMean[IntegerDigits[ #]]==8&] (* _Harvey P. Dale_, Jan 27 2012 *)

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

%K base,easy,nonn

%O 1,1

%A _Vladeta Jovovic_, Jun 12 2001

%E More terms from _Robert G. Wilson v_, Aug 08 2001