|
Search: id:A067452
|
|
|
| A067452 |
|
Numbers, not comprised of the same digits, such that the geometric and arithmetic means of their decimal digits are integers. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Program and terms from Robert G. Wilson.
|
|
MAPLE
|
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
|
|
CROSSREFS
|
Cf. A067451.
Sequence in context: A052224 A083678 A120144 this_sequence A123944 A095046 A121458
Adjacent sequences: A067449 A067450 A067451 this_sequence A067453 A067454 A067455
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Robert G. Wilson and Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Feb 05 2002
|
|
|
Search completed in 0.002 seconds
|
