%I #36 Sep 08 2022 08:44:59
%S 0,10,35,84,168,300,495,770,1144,1638,2275,3080,4080,5304,6783,8550,
%T 10640,13090,15939,19228,23000,27300,32175,37674,43848,50750,58435,
%U 66960,76384,86768,98175,110670,124320,139194,155363,172900,191880
%N Number of independent components for a Weyl tensor in n dimensions.
%H Vincenzo Librandi, <a href="/A052472/b052472.txt">Table of n, a(n) for n = 3..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/WeylTensor.html">Weyl Tensor</a>
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (5,-10,10,-5,1).
%F a(n) = n*(n+1)*(n+2)*(n-3)/12 for n >= 3.
%F a(n) = 2*C(n,4) - C(n,3), n>=5. - _Zerinvary Lajos_, Nov 25 2006
%F G.f.: x^4*(2-x)*(5 - 5*x + 2*x^2)/(1-x)^5. - _R. J. Mathar_, Sep 05 2011
%F E.g.f.: x*(1 + x - (12 - 6*x^2 - x^3)*exp(x)/12). - _G. C. Greubel_, May 18 2019
%p A052472 := proc(n) n*(n+1)*(n+2)*(n-3)/12 ; end proc:
%p seq(A052472(n),n=3..40) ; # _R. J. Mathar_, Nov 05 2011
%t LinearRecurrence[{5,-10,10,-5,1},{0,10,35,84,168},40] (* _Harvey P. Dale_, Mar 25 2016 *)
%o (Magma) [n*(n+1)*(n+2)*(n-3)/12 : n in [3..40]]; // _Vincenzo Librandi_, Sep 06 2011
%o (PARI) a(n)=n*(n-3)*(n+1)*(n+2)/12 \\ _Charles R Greathouse IV_, Jun 02 2015
%o (Sage) [(n-3)*binomial(n+2,3)/2 for n in (3..40)] # _G. C. Greubel_, May 18 2019
%o (GAP) List([3..40], n-> (n-3)*Binomial(n+2,3)/2) # _G. C. Greubel_, May 18 2019
%Y Cf. A058373.
%K nonn,easy
%O 3,2
%A _Eric W. Weisstein_