OFFSET
2,1
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 2..10000
EXAMPLE
24 = 2^3 * 3^1, so the average of the prime factors = (2 + 2 + 2 + 3)/4, which rounded = 2. So a(24) = 2.
MAPLE
with(numtheory): for n from 2 to 150 do printf(`%d, `, round(sum(ifactors(n)[2][i][1]*ifactors(n)[2][i][2], i=1..nops(ifactors(n)[2]))/sum(ifactors(n)[2][i][2], i=1..nops(ifactors(n)[2]) ) )) od:
MATHEMATICA
a[n_] := Floor[1/2+(Plus@@(Times@@#&/@(fn=FactorInteger[n])))/(Plus@@Last/@fn)]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Joseph L. Pe, Feb 02 2002
EXTENSIONS
Edited by Dean Hickerson and James A. Sellers, Feb 12 2002
STATUS
approved