|
|
A355219
|
|
a(n) = Sum_{k>=1} (4*k - 2)^n / 2^k.
|
|
3
|
|
|
1, 6, 68, 1176, 27152, 783456, 27126848, 1095801216, 50589024512, 2627443262976, 151623974601728, 9624874873952256, 666516443992297472, 50002158357801885696, 4039720490206565777408, 349685083067909962039296, 32287291853754803207340032, 3167488677197974581176303616
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: exp(2*x) / (2 - exp(4*x)).
a(0) = 1; a(n) = 2^n + Sum_{k=1..n} binomial(n,k) * 4^k * a(n-k).
a(n) = Sum_{k=0..n} binomial(n,k) * 2^(n+k) * A000670(k).
|
|
MATHEMATICA
|
nmax = 17; CoefficientList[Series[Exp[2 x]/(2 - Exp[4 x]), {x, 0, nmax}], x] Range[0, nmax]!
a[0] = 1; a[n_] := a[n] = 2^n + Sum[Binomial[n, k] 4^k a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 17}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|