OFFSET
1,3
COMMENTS
Numbers n such that a(n)=0 are: 1, 2, 24, 4320, 4680, ... (see A159907, conjecture by Jaroslav Krizek and further comments). - Michel Marcus, Sep 23 2013
Numbers n such that a(n)=n/2 are: 6, 28, 120, 496, 672, ... = A007691 \ {1}. - Michel Marcus, Sep 25 2013
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..10000.
FORMULA
a(n) = A024816(n) mod n.
PROG
(Haskell) a229110 n = mod (a024816 n) n
(PARI) a(n) = lift(sum(i=1, n, if (n % i, Mod(i, n), 0))); \\ Michel Marcus, Sep 23 2013
(PARI) a(n)=(n*(n+1)/2-sigma(n))%n \\ Charles R Greathouse IV, Sep 23 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jaroslav Krizek, Sep 22 2013
STATUS
approved