|
|
A278196
|
|
Partition numbers (A000041) of the form 2^2 * k for odd k.
|
|
7
|
|
|
2436, 5604, 451276, 715220, 831820, 1300156, 7089500, 12132164, 15796476, 26543660, 190569292, 483502844, 761002156, 851376628, 1327710076, 2841940500, 3519222692, 9035836076, 54770336324, 1280011042268, 1820701100652, 3972999029388, 6085253859260
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Also partition numbers having twice as many even divisors as odd divisors.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[PartitionsP@ Range@ 210, Count[#, k_ /; EvenQ@ k] == 2 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^2==0 & p\2^2%2==1, listput(L, p))); Vec(L)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|