%I
%S 0,1,3,4,5,6,7,12,13,14,16,17,18,20,23,24,29,32,33,35,36,37,38,39,41,
%T 43,44,48,49,51,52,53,54,56,60,61,63,67,68,69,71,72,73,76,77,81,82,83,
%U 85,87,88,89,90,91,92,93,95,99,102,104,105,107,111,114,115,118,119,121
%N Numbers with an odd number of partitions.
%C Intersection of A005408 and A000041; A000035(a(n))*A167392(a(n))=1. [From _Reinhard Zumkeller_, Nov 03 2009]
%H Clark Kimberling, <a href="/A052002/b052002.txt">Table of n, a(n) for n = 0..1000</a>
%t f[n_, k_] := Select[Range[250], Mod[PartitionsP[#], n] == k &]
%t Table[f[2, k], {k, 0, 1}] (* A001560, A052002, _Clark Kimberling_, Jan 05 2014 *)
%o (PARI) \ps150 (seriesprecision = 150 significant terms) ? for(n=0,100,p=polcoeff(1/eta(x),n,x); if((1(1)^p)/2==1,print1(n,",")))
%Y Cf. A052003, A001560, A000041.
%Y A052001. [From _Reinhard Zumkeller_, Nov 03 2009]
%K nonn,base
%O 0,3
%A _Patrick De Geest_, Nov 15 1999.
