|
Search: id:A067451
|
|
|
| A067451 |
|
Numbers such that the geometric and arithmetic mean of their decimal digits are integers. |
|
+0
2
|
|
| 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 19, 22, 28, 33, 44, 55, 66, 77, 82, 88, 91, 99, 111, 222, 333, 444, 555, 666, 777, 888, 999, 1111, 1128, 1182, 1199, 1218, 1281, 1339, 1393, 1812, 1821, 1919, 1933, 1991, 2118, 2181, 2222, 2288, 2811, 2828, 2882, 2899, 2989, 2998
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Program and terms from Robert G. Wilson v.
|
|
MATHEMATICA
|
a = {}; Do[b = Sort[IntegerDigits[n]]; c = Floor[Log[10, n]] + 1; If[b[[1]] != 0 && IntegerQ[Apply[Plus, b]/c] && IntegerQ[Apply[Times, b]^(1/c)], a = Append[a, n]], {n, 1, 10^4}]; a
|
|
CROSSREFS
|
Sequence in context: A084034 A147591 A033074 this_sequence A038724 A106001 A161390
Adjacent sequences: A067448 A067449 A067450 this_sequence A067452 A067453 A067454
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Feb 05 2002
|
|
|
Search completed in 0.002 seconds
|
