

A226046


Number of daughters to wait before picking in sultan's dowry problem with an unknown number of daughters between 1 and n with equal probability.


0



0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,15


LINKS

Table of n, a(n) for n=1..83.


MATHEMATICA

PR[n_, r_] := Sum[r/((k  1)i n), {i, 1, n}, {k, r + 1, i}]; maxi[li_] := {Do[If[li[[n + 1]] < li[[n]], aux = n; Break[]], {n, 1, Length[li]  1}], aux}[[2]]; SEQ[1] = 0; SEQ[2] = 1; SEQ[n_] := maxi[Table[PR[n, i], {i, 1, n  1}]]; Table[SEQ[n], {n, 1, 133}]


CROSSREFS

Cf. A054404.
Sequence in context: A180447 A295866 A115338 * A133877 A132270 A195174
Adjacent sequences: A226043 A226044 A226045 * A226047 A226048 A226049


KEYWORD

nonn


AUTHOR

José María Grau Ribas, May 24 2013


STATUS

approved



