login
A278197
Partition numbers (A000041) of the form 2^3 * k for odd k.
7
56, 792, 8118264, 92669720, 150198136, 1188908248, 1844349560, 3163127352, 4351078600, 5371315400, 7346629512, 11097645016, 16670689208, 18440293320, 684957390936, 6622987708040, 51820051838712, 77195892663512, 133978259344888, 197726516681672
OFFSET
1,1
COMMENTS
Also partition numbers having three times as many even divisors as odd divisors.
LINKS
MATHEMATICA
Select[PartitionsP@ Range@ 250, Count[#, k_ /; EvenQ@ k] == 3 Count[#, k_ /; OddQ@ k] &@ Divisors@ # &] (* Michael De Vlieger, Nov 15 2016 *)
PROG
(PARI) maxk=300; L=List(); for(k=1, maxk, p=numbpart(k); if(p%2^3==0 & p\2^3%2==1, listput(L, p))); Vec(L)
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Nov 15 2016
STATUS
approved