login
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
OFFSET
1,1
COMMENTS
Also partition numbers having twice as many even divisors as odd divisors.
A subsequence of A225324.
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
Colin Barker, Nov 15 2016
STATUS
approved