Integrate[e^x(7*Prime[3]exp[4x]+PartitionsQ[PartitionsP[6]](Cube[e^x]+e^x)), {x,-infinity, ln(prime(0!)prime(prime(prime(0!))))}]+6