|
Search: id:A069518
|
|
|
| A069518 |
|
Geometric mean of digits = 4. |
|
+0
3
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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: A137314 A032405 A061428 this_sequence A151912 A101002 A085024
Adjacent sequences: A069515 A069516 A069517 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
