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