|
%I #19 Jun 25 2019 17:15:06
%S 0,0,0,3,9,21,41,72,119,185,275,395,549,744,987,1285,1645,2076,2586,
%T 3185,3882,4688,5612,6667,7863,9213,10731,12428,14318,16416,18737,
%U 21295,24106,27187,30553,34223,38214,42543,47231,52295,57756,63633,69948,76721
%N Integer part of ((4th elementary symmetric function of 1,2,..,n)/(2nd elementary symmetric function of 1,2,...,n)).
%H Ivan Neretin, <a href="/A024173/b024173.txt">Table of n, a(n) for n = 2..10000</a>
%F a(n)= floor(A000915(n-3)/A000914(n-1)). - _R. J. Mathar_, Sep 15 2009
%F a(n) = floor((1/240) * (n-3) * (n-2) * (15*n^3 + 15*n^2 - 10*n - 8) / (2 + 3*n)). - _Ivan Neretin_, May 19 2018
%e a(4) = floor(24/35) = 0; a(5) = floor(274/85) = 3. - _R. J. Mathar_, Sep 15 2009
%p seq(floor((1/240)*(n-3)*(n-2)*(15*n^3+15*n^2-10*n-8)/(3*n+2)),n=2..50); # _Muniru A Asiru_, May 19 2018
%t Table[Floor[1/240 (n - 3) (n - 2) (15 n^3 + 15 n^2 - 10 n - 8)/ (2 + 3 n)], {n, 2, 45}] (* _Ivan Neretin_, May 19 2018 *)
%o (GAP) List([2..50],n->Int((1/240)*(n-3)*(n-2)*(15*n^3+15*n^2-10*n-8)/(3*n+2))); # _Muniru A Asiru_, May 19 2018
%K nonn
%O 2,4
%A _Clark Kimberling_
%E Offset changed to 2 by _R. J. Mathar_, Sep 15 2009
|
