OFFSET
1,12
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..10000
EXAMPLE
For n = 4; a(4) = (7 mod 1) + (7 mod 3) + (7 mod 7) = 0 + 1 + 0 = 1.
MATHEMATICA
Table[Sum[Mod[DivisorSigma[1, n], DivisorSigma[1, d]], {d, Divisors[n]}], {n, 1, 100}] (* Vaclav Kotesovec, Sep 06 2018 *)
PROG
(Magma) [&+[SumOfDivisors(n) mod SumOfDivisors(d): d in Divisors(n)] : n in [1..1000]]
(PARI) a(n) = my(sn = sigma(n)); sumdiv(n, d, sn % sigma(d)); \\ Michel Marcus, Sep 06 2018
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Jaroslav Krizek, Sep 05 2018
STATUS
approved