OFFSET
0,4
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..10000
MATHEMATICA
s[n_] := s[n] = Ceiling[DivisorSigma[0, n]/2]; a[n_] := Sum[s[k]*s[n + 1 - k], {k, 1, Ceiling[n/2]}]; Array[a, 100, 0] (* Amiram Eldar, Apr 19 2024*)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 08 2020
EXTENSIONS
Offset and name corrected by Amiram Eldar, Apr 19 2024
STATUS
approved