|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|