1,2

Ivan Neretin, Table of n, a(n) for n = 1..10000

Join[{0}, Table[Total[FactorInteger[Binomial[3 n, n - 1]][[All, 2]]], {n, 2, 78}]] (* Ivan Neretin, Nov 02 2017 *)

Sequence in context: A182839 A043552 A035545 * A225355 A117726 A172307

Adjacent sequences: A023817 A023818 A023819 * A023821 A023822 A023823

nonn

Clark Kimberling

approved