%I #11 Nov 28 2016 08:11:38
%S 176,384276336,2291320912,5964539504,10015581680,290726957916112,
%T 6486674127079088,60105349839666544,134819180623301520,
%U 2332821198543892336,14023788883518847344,126891542690981418000,320103136152993290544,5852110108921301661040
%N Partition numbers (A000041) of the form 2^4 * k for odd k.
%C Also partition numbers having four times as many even divisors as odd divisors.
%H Colin Barker, <a href="/A278198/b278198.txt">Table of n, a(n) for n = 1..600</a>
%t Select[PartitionsP@ Range@ 518, Count[#, k_ /; EvenQ@ k] == 4 Count[#, k_ /; OddQ@ k] &@ Divisors@ # &] (* _Michael De Vlieger_, Nov 15 2016 *)
%o (PARI) maxk=600; L=List(); for(k=1, maxk, p=numbpart(k); if(p%2^4==0 & p\2^4%2==1, listput(L, p))); Vec(L)
%Y Cf. A275029, A278196, A278197, A278199, A278200, A278201.
%K nonn
%O 1,1
%A _Colin Barker_, Nov 15 2016
|