Re: problem with RandomInteger

*To*: mathgroup at smc.vnet.net*Subject*: [mg112181] Re: problem with RandomInteger*From*: E. Pérez Herrero <enriqueperezherrero at gmail.com>*Date*: Sat, 4 Sep 2010 03:58:14 -0400 (EDT)*References*: <i5qhhg$pkm$1@smc.vnet.net>

It look very strange indeed, try this: f[n_] := N[Total[Table[str1[], {n}]]/n] ListPlot[Table[f[n], {n, 1, 1000}]] For the numbers below 240 it seem to be around 1/3, but afterwards it jumps to 1