OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
EXAMPLE
For n = 4; a(4) = ((sigma(1) + sigma(2) + sigma(4)) mod sigma(4) = (1+3+7) mod 7 = 11 mod 7 = 4.
MATHEMATICA
Table[Mod[Sum[DivisorSigma[1, d], {d, Divisors[n]}], DivisorSigma[1, n]], {n, 1, 100}] (* Vaclav Kotesovec, Sep 26 2018 *)
PROG
(Magma) [&+[SumOfDivisors(d): d in Divisors(n)] mod SumOfDivisors(n): n in [1..1000]]
(PARI) A319296(n) = (sumdiv(n, d, sigma(d))%sigma(n)); \\ Antti Karttunen, Sep 16 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Sep 16 2018
STATUS
approved