1,3

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

A106316 := proc(n)

modp(A106315(n), n) ;

end proc:

seq(A106316(n), n=1..100) ; # R. J. Mathar, Jan 25 2017

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

Cf. A106315, A106317.

Sequence in context: A033880 A033879 A033883 * A126707 A057458 A011017

Adjacent sequences: A106313 A106314 A106315 * A106317 A106318 A106319

nonn

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

approved