OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
319 is a term as the geometric mean of digits is (3*1*9) = 27 = 3^3.
MATHEMATICA
Select[Range[20000], GeometricMean[IntegerDigits[#]]==3&] (* Harvey P. Dale, Dec 11 2011 *)
PROG
(Haskell)
a061427 n = a061427_list !! (n-1)
a061427_list = g [1] where
g ds = if product ds == 3 ^ length ds
then foldr (\d v -> 10 * v + d) 0 ds : g (s ds) else g (s ds)
s [] = [1]; s (9:ds) = 1 : s ds; s (d:ds) = 3*d : ds
-- Reinhard Zumkeller, Jan 13 2014
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, May 03 2001
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), May 16 2001
STATUS
approved