login
A067452
Numbers, not composed of the same digits, such that the geometric and arithmetic means of their decimal digits are integers.
0
19, 28, 82, 91, 1128, 1182, 1199, 1218, 1281, 1339, 1393, 1812, 1821, 1919, 1933, 1991, 2118, 2181, 2288, 2811, 2828, 2882, 2899, 2989, 2998, 3139, 3193, 3319, 3391, 3913, 3931, 8112, 8121, 8211, 8228, 8282, 8299, 8822, 8929, 8992, 9119, 9133, 9191
OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
Cf. A067451.
Sequence in context: A368871 A120144 A255924 * A123944 A095046 A166667
KEYWORD
base,easy,nonn
AUTHOR
STATUS
approved