A226033 Round(n * exp(-1 - 1/(2n))), an approximation to the number of daughters to wait before picking in the sultan's dowry problem (Better that A225593).

0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 8, 8, 8, 9, 9, 9, 10, 10, 10, 11, 11, 12, 12, 12, 13, 13, 13, 14, 14, 15, 15, 15, 16, 16, 16, 17, 17, 17, 18, 18, 19, 19, 19, 20, 20, 20, 21, 21, 22, 22, 22, 23, 23, 23, 24, 24, 24, 25, 25, 26, 26, 26

Offset: 1

Author

José María Grau Ribas, May 24 2013

Keywords

• nonn

Comments

It is very similar to the sequence A054404, but differs for example at n=97 (see A226082).

Links

• Eric Weisstein's World of Mathematics, Sultan's Dowry Problem.

Crossrefs

Cf. A054404, A225593.

Programs

Maple

A226033 := proc(n)
    round(n/exp(1+1/2/n)) ;
end proc: # R. J. Mathar, Jun 09 2013

Mathematica

Table[Round[n*E^(-1-1/(2*n))], {n,100}]