OFFSET
1,2
COMMENTS
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
From the first terms of A054024 : 0, 1, 1, 3, 1, 0, 1, 7, 4, 8, 1, 4, 1, 10, ... we can see the records 0, 1, 3, 7, 8, 10, ... obtained for 1, 2, 4, 8, 10, ....
MATHEMATICA
DeleteDuplicates[Table[{n, Mod[DivisorSigma[1, n], n]}, {n, 1200}], GreaterEqual[#1[[2]], #2[[2]]]&][[;; , 1]] (* Harvey P. Dale, Jun 09 2024 *)
PROG
(PARI) lista(nn) = {rec = -1; for (n=1, nn, sm = sigma(n) % n; if (sm > rec, rec = sm; print1(n, ", "); ); ); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Apr 01 2014
STATUS
approved