OFFSET
1,5
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
MATHEMATICA
Table[DivisorSigma[0, DivisorSigma[1, n]]-DivisorSigma[0, n], {n, 110}] (* Harvey P. Dale, Oct 26 2020 *)
PROG
(PARI) A295305(n) = (numdiv(sigma(n)) - numdiv(n));
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Nov 21 2017
STATUS
approved