|
|
A049606
|
|
Largest odd divisor of n!.
|
|
34
|
|
|
1, 1, 1, 3, 3, 15, 45, 315, 315, 2835, 14175, 155925, 467775, 6081075, 42567525, 638512875, 638512875, 10854718875, 97692469875, 1856156927625, 9280784638125, 194896477400625, 2143861251406875, 49308808782358125, 147926426347074375, 3698160658676859375
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
Original name: Denominator of 2^n/n!.
For positive n, a(n) equals the numerator of the permanent of the n X n matrix whose (i,j)-entry is cos(i*Pi/3)*cos(j*Pi/3) (see example below). - John M. Campbell, May 28 2011
a(n) is also the number of binomial heaps with n nodes. - Zhujun Zhang, Jun 16 2019
a(n) is the number of 2-Sylow subgroups of the symmetric group S_n (see the Mathematics Stack Exchange link below). - Jianing Song, Nov 11 2022
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Product_{k=1..n} A000265(k).
a(n) = numerator(2*Sum_{i>=1} (-1)^i*(1-zeta(n+i+1)) * (Product_{j=1..n} i+j)). - Gerry Martens, Mar 10 2011
a(n) = denominator([t^n] 1/(tanh(t)-1)). - Peter Luschny, Aug 04 2011
E.g.f.: Product_{k>=0} (1 + x^(2^k) / 2^(2^k - 1)).
(End)
|
|
EXAMPLE
|
The numerator of the permanent of the following 5 X 5 matrix is equal to a(5):
| 1/4 -1/4 -1/2 -1/4 1/4 |
| -1/4 1/4 1/2 1/4 -1/4 |
| -1/2 1/2 1 1/2 -1/2 |
| -1/4 1/4 1/2 1/4 -1/4 |
| 1/4 -1/4 -1/2 -1/4 1/4 | (End)
|
|
MAPLE
|
f:= n-> n! * 2^(add(i, i=convert(n, base, 2))-n); # Peter Luschny, May 02 2009
seq (denom (coeff (series(1/(tanh(t)-1), t, 30), t, n)), n=0..25); # Peter Luschny, Aug 04 2011
|
|
MATHEMATICA
|
Table[Last[Select[Divisors[n!], OddQ]], {n, 0, 30}] (* Harvey P. Dale, Jul 24 2016 *)
Table[n!/2^IntegerExponent[n!, 2], {n, 1, 30}] (* Clark Kimberling, Oct 22 2016 *)
|
|
PROG
|
(Magma) [ Denominator(2^n/Factorial(n)): n in [0..25] ]; // Klaus Brockhaus, Mar 10 2011
(Python 3.10+)
from math import factorial
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|