OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = floor(1/240 n (n + 1) (15 n^4 + 330 n^3 + 2765 n^2 + 10482 n + 15208)/(3 n^2 + 35 n + 104)). - Ivan Neretin, May 20 2018
MAPLE
SymmPolyn := proc(L::list, n::integer)
local c, a, sel;
a :=0 ;
sel := combinat[choose](nops(L), n) ;
for c in sel do
a := a+mul(L[e], e=c) ;
end do:
a;
end proc:
A024181 := proc(n)
[seq(k, k=2..n+4)] ;
SymmPolyn(%, 4)/SymmPolyn(%, 2) ;
floor(%) ;
end proc: # R. J. Mathar, Sep 23 2016
MATHEMATICA
Table[Floor[1/240 n (n + 1) (15 n^4 + 330 n^3 + 2765 n^2 + 10482 n + 15208)/(3 n^2 + 35 n + 104)], {n, 42}] (* Ivan Neretin, May 20 2018 *)
PROG
(GAP) List([1..50], n->Int((1/240)*n*(n+1)*(15*n^4+330*n^3+2765*n^2+10482*n+15208)/(3*n^2+35*n+104))); # Muniru A Asiru, May 20 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved