A278201 Partition numbers (A000041) of the form 2^7 * k for odd k.

541946240, 47826239745920, 49760750604354432757376, 18426207875324210441995136, 914345304752746677204951178080640, 377394877138559089794329589034333523822720, 33381228189530831120385246576357623531476650368, 23951815370456759593096244705083096637451017834880

Offset: 1

Author

Colin Barker, Nov 15 2016

Keywords

• nonn

Comments

Also partition numbers having seven times as many even divisors as odd divisors.

Links

• Colin Barker, Table of n, a(n) for n = 1..100

Crossrefs

Cf. A275029, A278196, A278197, A278198, A278199, A278200.

Programs

Mathematica

Select[PartitionsP@ Range@ 2000, Count[#, k_ /; EvenQ@ k] == 7 Count[#, k_ /; OddQ@ k] &@ Divisors@ # &] (* Michael De Vlieger, Nov 15 2016 *)

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)