OFFSET
1,6
COMMENTS
A054022(n) for n > 1 gives the numbers k such that a(k) = 1.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
MATHEMATICA
Table[Mod[DivisorSigma[1, n]-n, DivisorSigma[0, n]], {n, 110}] (* Harvey P. Dale, Jun 22 2013 *)
PROG
(Magma) [ (SumOfDivisors(n)-n) mod NumberOfDivisors(n): n in [1..105] ]; // Klaus Brockhaus, May 21 2009
(PARI) A160550(n)=lift(Mod(sigma(n)-n, numdiv(n))); \\ Michael B. Porter, Oct 13 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ctibor O. Zizka, May 19 2009
EXTENSIONS
Extended and comment edited by Klaus Brockhaus, May 21 2009
STATUS
approved