This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A106316 #5 Jan 25 2017 05:51:46 %S A106316 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, %T A106316 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, %U A106316 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 %N A106316 Remainder of the harmonic residue of n when divided by n. %p A106316 A106316 := proc(n) %p A106316 modp(A106315(n),n) ; %p A106316 end proc: %p A106316 seq(A106316(n),n=1..100) ; # _R. J. Mathar_, Jan 25 2017 %t A106316 RemainderOfHarmonicResidue[n_]=Mod[Mod[n*DivisorSigma[0, n], DivisorSigma[1, n]], n] %Y A106316 Cf. A106315, A106317. %K A106316 nonn %O A106316 1,3 %A A106316 George J. Schaeffer (gschaeff(AT)andrew.cmu.edu), Apr 29 2005