|
| |
|
|
A264410
|
|
G.f.: Sum_{n>=0} (n^2)!/n!^(n+1) * x^n / (1-x)^(n^2+1).
|
|
1
|
|
|
|
1, 2, 6, 299, 2630475, 5194717544512, 3708580324835714831258, 1461034854533485247412937306733067, 450538787986948219326155652866541933427447505845, 146413934927214452212855330835382443952802497537220927026261910086, 64954656894649578286072291957497800888821547620744164639686415856667115998603764278502
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
|
|
|
FORMULA
|
a(n) = Sum_{k=0..n} (1/k!) * Product_{j=0..k-1} binomial(n+j*k, k).
a(n) ~ exp(n - 1/12) * n^(n^2 - 3*n/2 + 1/2) / (2*Pi)^(n/2). - Vaclav Kotesovec, Dec 09 2015
|
|
|
EXAMPLE
|
G.f.: A(x) = 1 + 2*x + 9*x^2 + 1714*x^3 + 63079895*x^4 + 623361815288736*x^5 +...
where
A(x) = 1/(1-x) + x/(1-x)^2 + (4!/2!^3)*x^2/(1-x)^5 + (9!/3!^4)*x^3/(1-x)^10 + (16!/4!^5)*x^4/(1-x)^17 + (25!/5!^6)*x^5/(1-x)^26 +...
Equivalently,
A(x) = 1/(1-x) + x/(1-x)^2 + 3*x^2/(1-x)^5 + 280*x^3/(1-x)^10 + 2627625*x^4/(1-x)^17 + 5194672859376*x^5/(1-x)^26 +...+ A057599(n)*x^n/(1-x)^(n^2+1) +...
Illustrate formula a(n) = Sum_{k=0..n} (1/k!)*Product_{j=0..k-1} C(n+j*k,k) for initial terms:
a(0) = 1;
a(1) = 1 + C(1,1);
a(2) = 1 + C(2,1) + C(2,2)*C(4,2)/2!;
a(3) = 1 + C(3,1) + C(3,2)*C(5,2)/2! + C(3,3)*C(6,3)*C(9,3)/3!;
a(4) = 1 + C(4,1) + C(4,2)*C(6,2)/2! + C(4,3)*C(7,3)*C(10,3)/3! + C(4,4)*C(8,4)*C(12,4)*C(16,4)/4!;
a(5) = 1 + C(5,1) + C(5,2)*C(7,2)/2! + C(5,3)*C(8,3)*C(11,3)/3! + C(5,4)*C(9,4)*C(13,4)*C(17,4)/4! + C(5,5)*C(10,5)*C(15,5)*C(20,5)*C(25,5)/5!; ...
which numerically equals:
a(0) = 1;
a(1) = 1 + 1 = 2;
a(2) = 1 + 2 + 1*6/2! = 6;
a(3) = 1 + 3 + 3*10/2! + 1*20*84/3! = 299;
a(4) = 1 + 4 + 6*15/2! + 4*35*120/3! + 1*70*495*1820/4! = 2630475;
a(5) = 1 + 5 + 10*21/2! + 10*56*165/3! + 5*126*715*2380/4! + 1*252*3003*15504*53130/5! = 5194717544512; ...
|
|
|
MATHEMATICA
|
Table[Sum[Product[Binomial[n+j*k, k], {j, 0, k-1}]/k!, {k, 0, n}], {n, 0, 10}] (* Vaclav Kotesovec, Dec 09 2015 *)
|
|
|
PROG
|
(PARI) {a(n)=polcoeff(sum(m=0, n, (m^2)!/m!^(m+1)*x^m/(1-x +x*O(x^n))^(m^2+1)), n)}
for(n=0, 15, print1(a(n), ", "))
(PARI) {a(n) = sum(k=0, n, (1/k!) * prod(j=0, k-1, binomial(n+j*k, k)) )}
for(n=0, 15, print1(a(n), ", "))
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
