|
| |
|
|
A100575
|
|
Half the number of permutations of 0..n with exactly two maxima.
|
|
7
| |
|
|
0, 0, 1, 8, 44, 208, 912, 3840, 15808, 64256, 259328, 1042432, 4180992, 16748544, 67047424, 268304384, 1073463296, 4294377472, 17178624000, 68716855296, 274872401920, 1099500093440, 4398022393856, 17592135712768, 70368639320064
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
COMMENTS
| Coefficient of the e^(2x) term in the numerator of the n-th derivative of 1/(2-e^x).
This sequence, multiplied by 8, appears in a combinatorial problem about DNA chips. - Bruno Petazzoni (bruno(AT)enix.org), Apr 18 2007
|
|
|
FORMULA
| G.f.: x^2/((1-2x)^2(1-4x)); a(n)=sum{k=0..n, (-1)^k*3^(n-k)*binomial(n, k)floor(k/2)}. - Paul Barry (pbarry(AT)wit.ie), Jan 28 2005
a(n) = 4^(n-1) - (n+1)*2^(n-2). - Bruno Petazzoni (bruno(AT)enix.org), Apr 18 2007
|
|
|
EXAMPLE
| a(2)=1 because there are two maxima in 2,0,1 and 1,0,2
|
|
|
MATHEMATICA
| d = Drop[ Flatten[ CoefficientList[ Table[ Simplify[ D[1/(2 - E^x), {x, n}]*(E^x - 2)^(n + 1)/E^x], {n, 2, 24}], E^x]], 1]; a = {}; Do[AppendTo[a, Abs[d[[n(n + 1)/2]]]], {n, 23}]; a (Robert G. Wilson v)
|
|
|
CROSSREFS
| Cf. A000431.
Sequence in context: A073380 A022636 A003518 * A003220 A125318 A000373
Adjacent sequences: A100572 A100573 A100574 * A100576 A100577 A100578
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Anthony C Robin (anthony_robin(AT)hotmail.com), Nov 29 2004
|
|
|
EXTENSIONS
| Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 01 2004
Definition corrected by Bruno Petazzoni (bruno(AT)enix.org), Apr 13 2007
New and simpler definition from R. H. Hardin (rhhardin(AT)att.net), Aug 09 2007
|
| |
|
|
