OFFSET
1,1
COMMENTS
Also partition numbers having twice as many even divisors as odd divisors.
A subsequence of A225324.
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
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