|
%I #13 Nov 28 2016 08:11:41
%S 541946240,47826239745920,49760750604354432757376,
%T 18426207875324210441995136,914345304752746677204951178080640,
%U 377394877138559089794329589034333523822720,33381228189530831120385246576357623531476650368,23951815370456759593096244705083096637451017834880
%N Partition numbers (A000041) of the form 2^7 * k for odd k.
%C Also partition numbers having seven times as many even divisors as odd divisors.
%H Colin Barker, <a href="/A278201/b278201.txt">Table of n, a(n) for n = 1..100</a>
%t Select[PartitionsP@ Range@ 2000, Count[#, k_ /; EvenQ@ k] == 7 Count[#, k_ /; OddQ@ k] &@ Divisors@ # &] (* _Michael De Vlieger_, Nov 15 2016 *)
%o (PARI) maxk=3000; L=List(); for(k=1, maxk, p=numbpart(k); if(p%2^7==0 & p\2^7%2==1, listput(L, p))); Vec(L)
%Y Cf. A275029, A278196, A278197, A278198, A278199, A278200.
%K nonn
%O 1,1
%A _Colin Barker_, Nov 15 2016
| 