A067452 Numbers, not composed of the same digits, such that the geometric and arithmetic means of their decimal digits are integers.

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

Links

Table of n, a(n) for n=1..43.

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

Adjacent sequences: A067449 A067450 A067451 * A067453 A067454 A067455

Keyword

base,easy,nonn

Author

Robert G. Wilson v and Amarnath Murthy, Feb 05 2002

Status

approved