login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A124226 Number of partitions of n with even crank minus number of partitions of n with odd crank. 4
1, -1, 2, -1, 5, -5, 3, -5, 6, -10, 10, -8, 13, -15, 15, -16, 23, -27, 25, -30, 35, -40, 42, -45, 55, -66, 68, -70, 86, -95, 100, -110, 125, -141, 150, -161, 185, -207, 215, -235, 266, -293, 310, -335, 375, -410, 438, -470, 521, -575, 610, -653, 725, -785, 835, -900, 983, -1070, 1140, -1220, 1331, -1443, 1532 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
COMMENTS
For a partition p, let l(p) = largest part of p, w(p) = number of 1's in p, m(p) = number of parts of p larger than w(p). The crank of p is given by l(p) if w(p) = 0, otherwise m(p)-w(p).
LINKS
FORMULA
G.f.: 2*x + Product_{i>=1} (1-x^i)/(1+x^i)^2.
a(n) = A132970(n) unless n=1. - Michael Somos, Jul 27 2015
a(n) ~ (-1)^n * exp(Pi*sqrt(n/6)) / (2*sqrt(n)). - Vaclav Kotesovec, Oct 14 2017
EXAMPLE
G.f. = 1 - x + 2*x^2 - x^3 + 5*x^4 - 5*x^5 + 3*x^6 - 5*x^7 + 6*x^8 + ...
MAPLE
p:=2*q + product((1-q^i)/(1+q^i)^2, i=1..200): s:=series(p, q, 200): for j from 0 to 199 do printf(`%d, `, coeff(s, q, j)) od: # James A. Sellers, Nov 30 2006
CROSSREFS
Sequence in context: A058116 A058118 A332632 * A248797 A193536 A152290
KEYWORD
easy,sign
AUTHOR
Vladeta Jovovic, Oct 20 2006
EXTENSIONS
More terms from James A. Sellers, Nov 30 2006
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 2 23:09 EDT 2024. Contains 373960 sequences. (Running on oeis4.)