A106316 Remainder of the harmonic residue of n when divided by n.

0, 1, 2, 1, 4, 0, 6, 2, 1, 4, 10, 4, 12, 8, 12, 2, 16, 12, 18, 16, 20, 16, 22, 12, 13, 20, 1, 0, 28, 24, 30, 3, 3, 28, 9, 15, 36, 32, 5, 10, 40, 6, 42, 12, 36, 40, 46, 12, 33, 21, 9, 18, 52, 18, 4, 32, 11, 52, 58, 48, 60, 56, 3, 3, 8, 30, 66, 30, 15, 58, 70, 12, 72, 68, 3, 36, 20, 42

Offset

1,3

Links

Table of n, a(n) for n=1..78.

Maple

A106316 := proc(n)
    modp(A106315(n), n) ;
end proc:
seq(A106316(n), n=1..100) ; # R. J. Mathar, Jan 25 2017

Mathematica

RemainderOfHarmonicResidue[n_]=Mod[Mod[n*DivisorSigma[0, n], DivisorSigma[1, n]], n]

Crossrefs

Cf. A106315, A106317.

Sequence in context: A033879 A324546 A033883 * A300721 A126707 A326305

Adjacent sequences: A106313 A106314 A106315 * A106317 A106318 A106319

Keyword

nonn

Author

George J. Schaeffer (gschaeff(AT)andrew.cmu.edu), Apr 29 2005

Status

approved