|
|
|
|
#11 by Harvey P. Dale at Thu Feb 29 15:15:47 EST 2024
|
|
|
|
#10 by Harvey P. Dale at Thu Feb 29 15:15:43 EST 2024
|
| MATHEMATICA
|
HarmonicResidue[n_]=Mod[n*DivisorSigma[0, n], DivisorSigma[1, n]]; HarmonicResidue[ Range[ 80]]
|
| EXTENSIONS
|
Mathematica program completed by Harvey P. Dale, Feb 29 2024
|
| STATUS
|
approved
editing
|
|
|
|
#9 by R. J. Mathar at Wed Jan 25 05:49:01 EST 2017
|
|
|
|
#8 by R. J. Mathar at Wed Jan 25 05:48:46 EST 2017
|
|
|
|
#7 by Reinhard Zumkeller at Sun Apr 06 15:37:14 EDT 2014
|
|
|
|
#6 by Reinhard Zumkeller at Sun Apr 06 14:46:55 EDT 2014
|
|
|
|
#5 by Reinhard Zumkeller at Sun Apr 06 14:45:13 EDT 2014
|
| LINKS
|
Reinhard Zumkeller, <a href="/A106315/b106315.txt">Table of n, a(n) for n = 1..10000</a>
|
| STATUS
|
approved
editing
|
|
|
|
#4 by N. J. A. Sloane at Fri Feb 27 03:00:00 EST 2009
|
| COMMENTS
|
The harmonic residue is the remainder when n*d(n) is divided by sigma(n), where d(n) is the number of divisors of n, and sigma(n) is the sum of the divisors of n. If n is perfect, the harmonic residue of n is 0.
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|
#3 by N. J. A. Sloane at Sat Nov 10 03:00:00 EST 2007
|
|
|
|
#2 by N. J. A. Sloane at Fri Feb 24 03:00:00 EST 2006
|
| MATHEMATICA
|
HarmonicResidue[n_]=Mod[n*DivisorSigma[0, , n], ], DivisorSigma[1, , n]]
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|