A154795 Odd partition numbers of odd numbers.

1, 3, 7, 15, 101, 297, 1255, 4565, 10143, 14883, 21637, 31185, 44583, 63261, 173525, 239943, 329931, 1121505, 1505499, 2679689, 3554345, 4697205, 6185689, 10619863, 18004327, 23338469, 30167357, 38887673, 49995925, 64112359, 82010177

Offset

1,2

Comments

Odd numbers in A058695.

Links

Alois P. Heinz, Table of n, a(n) for n = 1..1000

Example

7 is in the sequence because the odd number 5 has partition number 7 (5,41,32,311,2221,22111,1111111). - Emeric Deutsch, Aug 02 2009

Maple

aa:= proc(n, i) if n=0 then 1 elif n<0 or i=0 then 0 else aa(n, i):= aa(n, i-1) +aa(n-i, i) fi end: a:= proc(n) local k; if n>1 then a(n-1) fi; for k from `if`(n=1, 1, b(n-1)+2) by 2 while irem(aa(k, k), 2)=0 do od; b(n):= k; aa(k, k) end: seq(a(n), n=1..40); # Alois P. Heinz, Jul 28 2009
with(combinat): a := proc (n) if `mod`(numbpart(2*n-1), 2) = 1 then numbpart(2*n-1) else end if end proc: seq(a(n), n = 1 .. 50); # Emeric Deutsch, Aug 02 2009

Mathematica

Reap[Do[If[OddQ[p = PartitionsP[n]], Sow[p]], {n, 1, 99, 2}]][[2, 1]] (* Jean-François Alcover, Aug 31 2015 *)

Crossrefs

Cf. A000041, A005408, A058695, A154796, A154797, A154798.

Sequence in context: A258936 A336100 A096422 * A193831 A246719 A077775

Adjacent sequences: A154792 A154793 A154794 * A154796 A154797 A154798

Keyword

nonn

Author

Omar E. Pol, Jan 26 2009

Extensions

More terms from Alois P. Heinz, Jul 28 2009

Status

approved