|
| |
|
|
A067451
|
|
Numbers such that the geometric and arithmetic mean of their decimal digits are integers.
|
|
1
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| 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 * A038724 A106001 A161390
Adjacent sequences: A067448 A067449 A067450 * A067452 A067453 A067454
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Feb 05 2002
|
| |
|
|
