|
%I #17 May 28 2018 09:17:42
%S 0,0,0,2,18,77,241,623,1406,2868,5415,9608,16203,26188,40830,61720,
%T 90827,130548,183773,253942,345116,462042,610231,796034,1026724,
%U 1310578,1656969,2076457,2580887,3183486,3898970,4743648,5735537,6894474,8242236,9802664
%N Integer part of ((4th elementary symmetric function of 1,2,...,n)/(1+2+...+n)).
%H Ivan Neretin and Muniru A Asiru, <a href="/A024171/b024171.txt">Table of n, a(n) for n = 1..5000</a>(Terms 1 through 36 from Ivan Neretin)
%F a(n) = floor( A000915(n-3)/A000217(n)). - _R. J. Mathar_, Sep 15 2009
%F a(n) = floor((1/2880)*(n - 3)*(n - 2)*(n - 1)*(15*n^3 + 15*n^2 - 10*n - 8)).
%p seq(floor((1/2880)*(n-3)*(n-2)*(n-1)*(15*n^3+15*n^2-10*n-8)),n=1..50); # _Muniru A Asiru_, May 19 2018
%t Table[Floor[1/2880 (n - 3) (n - 2) (n - 1) (15 n^3 + 15 n^2 - 10 n - 8)], {n, 36}] (* _Ivan Neretin_, May 19 2018 *)
%o (GAP) List([1..50],n->Int((1/2880)*(n-3)*(n-2)*(n-1)*(15*n^3+15*n^2-10*n-8))); # _Muniru A Asiru_, May 19 2018
%K nonn
%O 1,4
%A _Clark Kimberling_
|
