OFFSET
1,3
LINKS
T. D. Noe, Table of n, a(n) for n=1..5000
EXAMPLE
694 is a term as (6*9*4)^(1/3) = 6 is an integer.
MATHEMATICA
Select[Range[0, 200], IntegerQ[GeometricMean[IntegerDigits[#]]]&] (* Harvey P. Dale, Feb 15 2012 *)
PROG
(Haskell)
a061430 n = a061430_list !! (n-1)
a061430_list = filter g [0..] where
g u = round (fromIntegral p ** (1 / fromIntegral k)) ^ k == p where
(p, k) = h (1, 0) u
h (p, l) 0 = (p, l)
h (p, l) v = h (p * r, l + 1) v' where (v', r) = divMod v 10
-- Reinhard Zumkeller, Jan 13 2014
CROSSREFS
KEYWORD
nonn,base,easy,nice
AUTHOR
Amarnath Murthy, May 03 2001
EXTENSIONS
More terms from Naohiro Nomoto, May 11 2001
STATUS
approved