login
A052003
Odd partition numbers.
11
1, 3, 5, 7, 11, 15, 77, 101, 135, 231, 297, 385, 627, 1255, 1575, 4565, 8349, 10143, 14883, 17977, 21637, 26015, 31185, 44583, 63261, 75175, 147273, 173525, 239943, 281589, 329931, 386155, 526823, 966467, 1121505, 1505499, 2679689, 3087735
OFFSET
1,2
COMMENTS
Intersection of A005408 and A000041; A000035(a(n))*A167392(a(n)) = 1; a(n) = A000041(A052002(n+1)). - Reinhard Zumkeller, Nov 03 2015
LINKS
Sean A. Irvine, Table of n, a(n) for n = 1..1000 (terms 1..529 from G. C. Gruebel).
K. Ono, Odd values of the partition function, Discrete Mathematics 169, 1997, pp. 263-268.
MAPLE
select(type, [seq(combinat:-numbpart(n), n=1..200)], odd); # Robert Israel, Nov 03 2015
MATHEMATICA
Select[PartitionsP[Range[50]], OddQ] (* Vladimir Reshetnikov, Nov 02 2015 *)
PROG
(PARI) for(n=1, 100, if((k=numbpart(n))%2==1, print1(k", "))) \\ Altug Alkan, Nov 02 2015
(Haskell)
a052003 n = a052003_list !! n
a052003_list = filter odd a000041_list
-- Reinhard Zumkeller, Nov 03 2015
CROSSREFS
Sequence in context: A062488 A316936 A116582 * A019449 A373554 A219533
KEYWORD
nonn
AUTHOR
Patrick De Geest, Nov 15 1999
STATUS
approved