|
| |
|
|
A057020
|
|
Numerator of (sum of factors of n / number of factors of n).
|
|
6
| |
|
|
1, 3, 2, 7, 3, 3, 4, 15, 13, 9, 6, 14, 7, 6, 6, 31, 9, 13, 10, 7, 8, 9, 12, 15, 31, 21, 10, 28, 15, 9, 16, 21, 12, 27, 12, 91, 19, 15, 14, 45, 21, 12, 22, 14, 13, 18, 24, 62, 19, 31, 18, 49, 27, 15, 18, 15, 20, 45, 30, 14, 31, 24, 52, 127, 21, 18, 34, 21, 24, 18
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Numerator of arithmetic mean of the divisors of n. See A057021 = denominator. [From Jaroslav Krizek (jaroslav.krizek(AT)atlas.cz), Apr 26 2010]
|
|
|
LINKS
| Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
|
|
|
FORMULA
| a(n) =A057021(n)*A000203(n)/A000005(n) =A000203(n)/A009205(n) =(A057022(n)+A054025(n)/A000005(n))*A057021(n)
|
|
|
EXAMPLE
| a(12)=14 since the 6 factors of 12 are 1, 2, 3, 4, 6 and 12 and 1+2+3+4+6+12=28 and 28/6=14/3
|
|
|
MAPLE
| with(numtheory): seq(numer(sigma(n)/tau(n)), n=1..70) ; - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Jun 04 2008
|
|
|
MATHEMATICA
| Numerator[Table[(Plus @@ Divisors[n])/Length[Divisors[n]], {n, 70}]] (Alonso Delarte (alonso.delarte(AT)gmail.com))
|
|
|
PROG
| (Haskell)
import Data.Ratio ((%), numerator)
a057020 n = numerator $ a000203 n % a000005 n
-- Reinhard Zumkeller, Jan 06 2012
|
|
|
CROSSREFS
| Cf. A000005, A000203, A009205, A054025, A057021 (denominator), A057022.
Sequence in context: A182885 A182891 A071190 * A165794 A075270 A067872
Adjacent sequences: A057017 A057018 A057019 * A057021 A057022 A057023
|
|
|
KEYWORD
| frac,nonn
|
|
|
AUTHOR
| Henry Bottomley (se16(AT)btinternet.com), Jul 21 2000
|
| |
|
|
