This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A024171 #17 May 28 2018 09:17:42 %S A024171 0,0,0,2,18,77,241,623,1406,2868,5415,9608,16203,26188,40830,61720, %T A024171 90827,130548,183773,253942,345116,462042,610231,796034,1026724, %U A024171 1310578,1656969,2076457,2580887,3183486,3898970,4743648,5735537,6894474,8242236,9802664 %N A024171 Integer part of ((4th elementary symmetric function of 1,2,...,n)/(1+2+...+n)). %H A024171 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 A024171 a(n) = floor( A000915(n-3)/A000217(n)). - _R. J. Mathar_, Sep 15 2009 %F A024171 a(n) = floor((1/2880)*(n - 3)*(n - 2)*(n - 1)*(15*n^3 + 15*n^2 - 10*n - 8)). %p A024171 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 A024171 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 A024171 (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 A024171 nonn %O A024171 1,4 %A A024171 _Clark Kimberling_