Ideal dating pool seems to be around age 32.

I don't know how to optimize a function with an integral in R yet (unsurprising, just installed it 20 minutes ago), therefore I can't give a better answer. Now I want to learn R.