This site is supported by donations to The OEIS Foundation.

 Annual Appeal: Please make a donation to keep the OEIS running. In 2017 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS"). Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A108950 Number of partitions of n with more odd parts than even parts. 8
 1, 1, 2, 3, 4, 7, 9, 14, 18, 27, 35, 49, 64, 86, 113, 148, 192, 247, 319, 404, 517, 649, 822, 1024, 1285, 1590, 1979, 2436, 3007, 3682, 4515, 5501, 6703, 8131, 9851, 11899, 14344, 17252, 20703, 24804, 29640, 35377, 42115, 50085, 59415, 70420, 83261, 98365, 115947, 136557 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS a(n) = A130780(n) - A045931(n) = A171967(n) - A108949(n). - Reinhard Zumkeller, Jan 21 2010 a(n) = Sum_{k=1..n} A240009(n,k). - Alois P. Heinz, Mar 30 2014 LINKS Alois P. Heinz, Table of n, a(n) for n = 1..500 FORMULA G.f.: Sum_{k>=0} x^k*(1-x^(2*k))/Product_{i=1..k} (1-x^(2*i))^2. - Vladeta Jovovic, Aug 19 2007 EXAMPLE a(4) = 3: {[3,1], [2,1,1], [1,1,1,1]}; a(5) = 4: {[5], [3,1,1], [2,1,1,1], [1,1,1,1,1]}. MAPLE with(combinat, partition):oddbigrevn:=proc(n::nonnegint) local evencount, oddcount, bigcount, parts, i, j; printlevel:=-1; bigcount:=0; partitions:=partition(n); for i from 1 to nops(partitions) do evencount:=0; oddcount:=0; for j from 1 to nops(partitions[i]) do if (op(j, partitions[i]) mod 2 <>0) then oddcount:=oddcount+1 fi; if (op(j, partitions[i]) mod 2 =0) then evencount:=evencount+1 fi od; if (evencount0, 1, 0), `if`(i<1, 0, b(n, i-1, t)+       `if`(i>n, 0, b(n-i, i, t+(2*irem(i, 2)-1)))))     end: a:= n-> b(n\$2, 0): seq(a(n), n=1..80);  # Alois P. Heinz, Mar 30 2014 MATHEMATICA p[n_] := p[n] = Select[IntegerPartitions[n], Count[#, _?OddQ] > Count[#, _?EvenQ] &]; t = Table[p[n], {n, 0, 15}] (* partitions of n with # odd parts > # even parts *) TableForm[t] (* partitions, vertical format *) Table[Length[p[n]], {n, 1, 30}] (* A108950 *) (* Peter J. C. Moses, Mar 10 2014 *) b[n_, i_, t_] := b[n, i, t] = If[n==0, If[t>0, 1, 0], If[i<1, 0, b[n, i-1, t] + If[i>n, 0, b[n-i, i, t + (2*Mod[i, 2]-1)]]]]; a[n_] := b[n, n, 0]; Table[a[n], {n, 1, 80}] (* Jean-François Alcover, Nov 16 2015, after Alois P. Heinz *) CROSSREFS Cf. A045931 for #even parts = #odd parts, A108949 for #even parts > #odd parts. Cf. A171966, A171967. - Reinhard Zumkeller, Jan 21 2010 Sequence in context: A139078 A065046 A049709 * A238545 A238495 A239329 Adjacent sequences:  A108947 A108948 A108949 * A108951 A108952 A108953 KEYWORD nonn AUTHOR Len Smiley, Jul 21 2005 EXTENSIONS More terms from Joerg Arndt, Oct 04 2012 STATUS approved

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

Last modified December 9 17:48 EST 2018. Contains 318023 sequences. (Running on oeis4.)