|
%I #8 Mar 07 2017 16:45:18
%S 1,1,2,5,14,42,66,429,1430,4862,8398,58786,104006,74290,222870,
%T 3231615,11785890,129644790,47763870,1767263190,3282060210,
%U 12233133510,22870640910,22870640910,214984024554,115760628606,655976895434,34766775458002,65936987937590
%N The radical of the Catalan number which is the largest squarefree number dividing binomial(2*n,n)/(n+1).
%F a(n) = A007947(A000108(n)). - _Altug Alkan_, Mar 07 2017
%p a := n -> convert(numtheory:-factorset(binomial(2*n, n)/(n+1)), `*`):
%p seq(a(n), n=0..28);
%t Table[Times @@ FactorInteger[CatalanNumber[n]][[All, 1]], {n,0,28}]
%Y Cf. A007947, A000108.
%K nonn
%O 0,3
%A _Peter Luschny_, Mar 07 2017
|
