|
|
A081341
|
|
Expansion of exp(3*x)*cosh(3*x).
|
|
13
|
|
|
1, 3, 18, 108, 648, 3888, 23328, 139968, 839808, 5038848, 30233088, 181398528, 1088391168, 6530347008, 39182082048, 235092492288, 1410554953728, 8463329722368, 50779978334208, 304679870005248, 1828079220031488, 10968475320188928, 65810851921133568
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Binomial transform of A081340. 3rd binomial transform of (1,0,9,0,81,0,729,0,...).
Number of compositions of even natural numbers in n parts <= 5. - Adi Dani, May 29 2011
|
|
LINKS
|
|
|
FORMULA
|
a(0)=1, a(n) = 6^n/2, n > 0.
G.f.: (1-3*x)/(1-6*x).
E.g.f.: exp(3*x)*cosh(3*x).
a(n) = ((3+sqrt(9))^n + (3-sqrt(9))^n/2. - Al Hakanson (hawkuu(AT)gmail.com), Dec 08 2008
a(n) = ((8*n-4)*a(n-1) - 12*(n-2)*a(n-2))/n, a(0)=1, a(1)=3.
E.g.f. (exp(6*x) + 1)/2 = 1 + 3*x/(G(0) - 6*x) where G(k) = 6*x + 1 + k - 6*x*(k+1)/G(k+1) (continued fraction, Euler's 1st kind, 1-step). (End)
|
|
EXAMPLE
|
a(2)=18: there are 18 compositions of even natural numbers into 2 parts <= 5:
for 0: (0,0);
for 2: (0,2),(2,0),(1,1);
for 4: (0,4),(4,0),(1,3),(3,1),(2,2);
for 6: (1,5),(5,1),(2,4),(4,2),(3,3);
for 8: (3,5),(5,3),(4,4);
for 10: (5,5). (End)
|
|
MAPLE
|
a:= proc(n) option remember; `if`(n=0, 1,
add(3^j*a(n-j), j=1..n))
end:
|
|
MATHEMATICA
|
Table[Ceiling[1/2(6^n)], {n, 0, 25}]
|
|
PROG
|
(PARI) x='x+O('x^66); /* that many terms */
Vec((1-3*x)/(1-6*x)) /* show terms */ /* Joerg Arndt, May 29 2011 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|