|
%I #16 May 19 2018 19:10:02
%S 360,2754,12154,40369,111769,271929,600033,1225983,2353263,4288713,
%T 7480473,12565462,20427862,32270182,49698582,74824242,110382666,
%U 159872916,227718876,319454751,441937111,603585895,814656895,1087548345,1437144345
%N Fourth elementary symmetric function of 3,4,...,n+5.
%H Ivan Neretin, <a href="/A024185/b024185.txt">Table of n, a(n) for n = 1..10000</a>
%F G.f.: x*(360-486*x+328*x^2-113*x^3+16*x^4)/(1-x)^9. - _R. J. Mathar_, Sep 15 2009
%F a(n) = n*(n+1)*(n+2)*(n+3)*(15*n^4+450*n^3+5165*n^2+26922*n+53848)/5760. - _R. J. Mathar_, Sep 15 2009
%p S := proc(n,L) mul(x+i,i=L) ; expand(%) ; coeftayl(%,x=0,nops(L)-n) ; end:
%p A024185 := proc(n) S(4,[seq(j,j=3..n+5)]) ; end: seq(A024185(n),n=1..40) ; # _R. J. Mathar_, Sep 15 2009
%o (GAP) List([1..30],n->n*(n+1)*(n+2)*(n+3)*(15*n^4+450*n^3+5165*n^2+26922*n+53848)/5760); # _Muniru A Asiru_, May 19 2018
%K nonn
%O 1,1
%A _Clark Kimberling_
%E Variable set in definition changed by _R. J. Mathar_, Sep 15 2009
|
