A061429 Geometric mean of the digits = 6. In other words, the product of the digits is = 6^k where k is the number of digits.
6, 49, 66, 94, 389, 398, 469, 496, 649, 666, 694, 839, 893, 938, 946, 964, 983, 2899, 2989, 2998, 3689, 3698, 3869, 3896, 3968, 3986, 4499, 4669, 4696, 4949, 4966, 4994, 6389, 6398, 6469, 6496, 6649, 6666, 6694, 6839, 6893, 6938, 6946, 6964, 6983, 8299
Offset: 1
Examples
694 is a term as the geometric mean of digits is (6*9*4)^(1/3)= 6.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
a061429 n = a061429_list !! (n-1) a061429_list = filter (h 1 1) [1..] where h 0 = False h u v 0 = u == v h u v w = h (r * u) (6 * v) w' where (w', r) = divMod w 10 -- Reinhard Zumkeller, Jan 13 2014
-
Mathematica
Select[Range[9000],GeometricMean[IntegerDigits[#]]==6&] (* Harvey P. Dale, May 29 2021 *)
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), May 16 2001
Comments