OFFSET
1,8
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[DivisorSigma[0, n + DivisorSigma[0, n]] - DivisorSigma[0, n], {n, 109}] (* Michael De Vlieger, May 21 2017 *)
PROG
(PARI) A286530(n) = (numdiv(n+numdiv(n)) - numdiv(n));
(Python)
from sympy import divisor_count as d
def a(n): return d(n + d(n)) - d(n) # Indranil Ghosh, May 21 2017
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, May 21 2017
STATUS
approved