The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #18 Jun 06 2016 22:23:00
%S 19,28,82,91,1128,1182,1199,1218,1281,1339,1393,1812,1821,1919,1933,
%T 1991,2118,2181,2288,2811,2828,2882,2899,2989,2998,3139,3193,3319,
%U 3391,3913,3931,8112,8121,8211,8228,8282,8299,8822,8929,8992,9119,9133,9191
%N Numbers, not composed of the same digits, such that the geometric and arithmetic means of their decimal digits are integers.
%t a = {}; Do[b = Sort[IntegerDigits[n]]; c = Floor[Log[10, n]] + 1; If[b[[1]] != 0 && Length[Union[b]] > 1 && IntegerQ[Apply[Plus, b]/c] && IntegerQ[Apply[Times, b]^(1/c)], a = Append[a, n]], {n, 1, 10^4}]; a (* _Robert G. Wilson v_ *)
%Y Cf. A067451.
%K base,easy,nonn
%O 1,1
%A _Robert G. Wilson v_ and _Amarnath Murthy_, Feb 05 2002