Plot[1-365!/((365-x)!365^x), {x, 0, 365}]