OFFSET
0,5
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..201
MAPLE
with(numtheory): M := proc (n) options operator, arrow: (sum((-1)^j*binomial(n+1, j)*binomial(2*n-3*j, n), j = 0 .. floor((1/3)*n)))/(n+1) end proc: seq(sigma(M(n))-M(n)-tau(M(n))+1, n = 0 .. 30); # Emeric Deutsch, Jan 12 2009
MATHEMATICA
mot[0] = 1; mot[n_] := mot[n] = mot[n - 1] + Sum[mot[k] * mot[n - 2 - k], {k, 0, n - 2}]; diff[n_] := DivisorSigma[1, n] - DivisorSigma[0, n] - n + 1; Table[diff[mot[n]], {n, 0, 30}] (* Amiram Eldar, Nov 26 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 07 2009
EXTENSIONS
Extended by Emeric Deutsch, Jan 12 2009
STATUS
approved