A226082 Number of daughters to wait before picking in the sultan's dowry problem that is not equal to round(n*e^(-1 - 1/(2*n))).
97, 1361, 24586, 73757
Offset: 1
Programs
-
Mathematica
li[n_] := -1/2* 1/ProductLog[-Exp[1 - 1/((2 n - 2))]/(2n-2)]; Table[If[! Round[n*E^(-1 - 1/(2*n))] == Ceiling[li[n]], Print[n]; n], {n, 4, 1000000}]
Comments