OFFSET
0,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
MATHEMATICA
ad[n_] := n * Plus @@ ((Last[#]/First[#]) & /@ FactorInteger[n]); ad[0] = ad[1] = 0; a[n_] := ad[Binomial[2*n, n]]; Array[a, 26, 0] (* Amiram Eldar, Apr 13 2025 *)
PROG
(Haskell)
a258290 = a003415 . a000984
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 26 2015
STATUS
approved
