OFFSET
2,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 2..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 2..65537
EXAMPLE
a(2) = 1 mod 1 = 0;
a(3) = 1 mod 1 = 0;
a(4) = 2 mod 3 = 2.
MAPLE
MATHEMATICA
Table[With[{pd=Most[Divisors[n]]}, Mod[Times@@pd, Total[pd]]], {n, 2, 90}] (* Harvey P. Dale, Nov 24 2021 *)
PROG
(PARI) A191906(n) = { my(m=1, s=0); fordiv(n, d, if(d<n, m *= d; s += d)); (m%s); }; \\ Antti Karttunen, Jul 11 2019
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Juri-Stepan Gerasimov, Jun 19 2011
STATUS
approved