OFFSET
1,4
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..4000
EXAMPLE
MATHEMATICA
a[n_] := Block[{d = DivisorSigma[0, Binomial[n, Range[0, n/2]]]}, Position[ d, Max[d], 1, 1][[1, 1]] - 1]; Array[a, 76] (* Giovanni Resta, May 14 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved