OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
The prime factors of 15 are 3 and 5, having an average of 4. The number of divisors of 15 is also 4, so 15 is a term of the sequence.
MATHEMATICA
f[ n_ ] := FactorInteger[ n ]; g[ n_ ] := Module[ {a, l, t, r}, a = f[ n ]; l = Length[ a ]; t = Table[ a[ [ i ] ][ [ 1 ] ], {i, 1, l} ] ]; Select[ Range[ 2, 10^5 ], Mean[ g[ # ] ] == DivisorSigma[ 0, # ] & ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Jan 28 2002
EXTENSIONS
More terms from Naohiro Nomoto, Mar 01 2002
STATUS
approved