|
|
A024171
|
|
Integer part of ((4th elementary symmetric function of 1,2,...,n)/(1+2+...+n)).
|
|
1
|
|
|
0, 0, 0, 2, 18, 77, 241, 623, 1406, 2868, 5415, 9608, 16203, 26188, 40830, 61720, 90827, 130548, 183773, 253942, 345116, 462042, 610231, 796034, 1026724, 1310578, 1656969, 2076457, 2580887, 3183486, 3898970, 4743648, 5735537, 6894474, 8242236, 9802664
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
FORMULA
|
a(n) = floor((1/2880)*(n - 3)*(n - 2)*(n - 1)*(15*n^3 + 15*n^2 - 10*n - 8)).
|
|
MAPLE
|
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
|
|
MATHEMATICA
|
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 *)
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|