OFFSET
0,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..2000 from Alois P. Heinz)
FORMULA
a(n) = A218698(2n,n).
MAPLE
g:= proc(n, i) option remember;
add(`if`(irem(n, j)=0, 1, 0), j=1..i)
end:
a:= proc(n) option remember; numtheory[tau](2*n)+
add(g(2*n-j, min(2*n-j, j-n)), j=n+1..2*n-1)
end: a(0):=1:
seq(a(n), n=0..100);
MATHEMATICA
g[n_, i_] := g[n, i] = Sum[If[Mod[n, j] == 0, 1, 0], {j, 1, i}];
a[n_] := a[n] = DivisorSigma[0, 2n] + Sum[g[2n - j, Min[2n - j, j - n]], {j, n + 1, 2n - 1}]; a[0] = 1;
a /@ Range[0, 100] (* Jean-François Alcover, Dec 12 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Sep 27 2018
STATUS
approved