A106316 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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]