OFFSET
1,1
MATHEMATICA
Select[Range[2, 200], Length[Intersection[Transpose[ FactorInteger[ PartitionsP[#]]][[1]], Transpose[FactorInteger[PartitionsQ[#]]] [[1]]]]>0&] (* Harvey P. Dale, Nov 03 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved