|
| |
|
|
A069518
|
|
Geometric mean of digits = 4.
|
|
2
| |
|
|
4, 28, 44, 188, 248, 444, 1488, 2288, 2448, 4444, 12888, 14488, 22488, 24448, 44444, 118888, 124888, 144488, 222888, 224488, 244448, 444444, 1148888, 1228888, 1244888, 1444488, 2224888, 2244488, 2444448, 4444444
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| No number is obtainable by permuting the digits of other members - only one with ascending order of digits is included.
|
|
|
EXAMPLE
| 1488 is a term but 1848 is not.
|
|
|
MATHEMATICA
| a = {}; b = 4; Do[c = Apply[ Times, IntegerDigits[n]]/b^Floor[ Log[10, n] + 1]; If[c == 1 && Position[a, FromDigits[ Sort[ IntegerDigits[n]]]] == {}, Print[n]; a = Append[a, n]], {n, 1, 10^7}]
|
|
|
CROSSREFS
| Cf. A061428, A069512, A069516.
Sequence in context: A032405 A179279 A061428 * A151912 A101002 A197542
Adjacent sequences: A069515 A069516 A069517 * A069519 A069520 A069521
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 30 2002
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 01 2002
|
| |
|
|
