Search: a326864 -id:a326864
|
|
A326865
|
|
G.f.: Product_{k>=1} (1 + x^k/k^3) = Sum_{n>=0} a(n)*x^n/n!^3.
|
|
+10
3
|
|
|
1, 1, 1, 35, 728, 48824, 7170984, 1418111064, 479963197440, 235727037775872, 170423013422592000, 163854260184125952000, 214343327259234349056000, 360795240553638133592064000, 778954481701636984110452736000, 2095759092922096320907078496256000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ c * (n-1)!^3, where c = A073017 = Product_{k>=1} (1 + 1/k^3) = cosh(sqrt(3)*Pi/2)/Pi = 2.428189792098870328736...
|
|
MAPLE
|
b:= proc(n, i) option remember; `if`(i*(i+1)/2<n, 0, `if`(n=0, 1,
b(n, i-1)+b(n-i, min(n-i, i-1))*((i-1)!*binomial(n, i))^3))
end:
a:= n-> b(n$2):
|
|
MATHEMATICA
|
nmax = 20; CoefficientList[Series[Product[(1+x^k/k^3), {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]!^3
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A336306
|
|
a(n) = (n!)^n * [x^n] Product_{n>=1} (1 + x^k/k^n).
|
|
+10
1
|
|
|
1, 1, 1, 35, 5392, 35462624, 15419509448256, 445352317449860352384, 1733058447330128629281872412672, 1124641798042952855847954946807366969982976, 155064212713307814902013200520441969883490549760000000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MAPLE
|
b:= proc(n, i, k) option remember; `if`(i*(i+1)/2<n, 0, `if`(n=0, 1,
b(n, i-1, k)+b(n-i, min(n-i, i-1), k)*((i-1)!*binomial(n, i))^k))
end:
a:= n-> b(n$3):
|
|
MATHEMATICA
|
Table[(n!)^n SeriesCoefficient[Product[(1 + x^k/k^n), {k, 1, n}], {x, 0, n}], {n, 0, 10}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A346312
|
|
Sum_{n>=0} a(n) * x^n / (n!)^2 = Product_{n>=1} (1 - x^n / n^2).
|
|
+10
1
|
|
|
1, -1, -1, 5, 28, 724, 36, 220716, -1255680, 110979072, 2530310400, 1193835283200, -24457819622400, 21656019855744000, 899271273253248000, 474367063601421849600, 45822442913828595302400, 28365278076547150440038400, 2614371018285307258994688000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
a(0) = 1; a(n) = -(1/n) * Sum_{k=1..n} (binomial(n,k) * k!)^2 * ( Sum_{d|k} 1 / (k/d)^(2*d-1) ) * a(n-k).
|
|
MATHEMATICA
|
nmax = 18; CoefficientList[Series[Product[(1 - x^k/k^2), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!^2
a[0] = 1; a[n_] := a[n] = -(1/n) Sum[(Binomial[n, k] k!)^2 Sum[1/(k/d)^(2 d - 1), {d, Divisors[k]}] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 18}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A346313
|
|
Sum_{n>=0} a(n) * x^n / (n!)^2 = Product_{n>=1} 1 / (1 + (-x)^n / n^2).
|
|
+10
1
|
|
|
1, 1, 3, 31, 496, 12576, 444736, 22056448, 1406058816, 114618828096, 11405077216704, 1385889578069184, 198961869847145472, 33725910553646229504, 6594186368339077238784, 1487133154121568112705536, 379990326228614750079369216, 110013397755650063836228435968
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(0) = 1; a(n) = (1/n) * Sum_{k=1..n} (-1)^k * (binomial(n,k) * k!)^2 * ( Sum_{d|k} (-1)^d / (k/d)^(2*d-1) ) * a(n-k).
|
|
MATHEMATICA
|
nmax = 17; CoefficientList[Series[Product[1/(1 + (-x)^k/k^2), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!^2
a[0] = 1; a[n_] := a[n] = (1/n) Sum[(-1)^k (Binomial[n, k] k!)^2 Sum[(-1)^d/(k/d)^(2 d - 1), {d, Divisors[k]}] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 17}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
Search completed in 0.005 seconds
|