OFFSET
1,1
COMMENTS
Are there any terms with more than 3 prime factors? - David Wasserman, May 05 2003
EXAMPLE
a(15) = 589794 because m = 2*3*98299; mean = (2+3+98299)/3 = 32768 = 2^15.
MATHEMATICA
a = Table[0, {21}]; Do[b = Transpose[ FactorInteger[n]][[1]]; c = Log[2, Apply[ Plus, b] / Length[b]]; If[ IntegerQ[c] && a[[c]] == 0, a[[c]] = n], {n, 2, 10^8/3}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 11 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Apr 30 2002
More terms from David Wasserman, May 05 2003
a(29)-a(30) from Donovan Johnson, Aug 06 2012
STATUS
approved