RandomReal[]

t100=RandomReal[{0,1},100]

ListPlot[t100]

SeedRandom[1];

t10a=RandomReal[{0,1},10];

SeedRandom[1];

t10b=RandomReal[{0,1},10];

<<"ErrorBarPlots`"

ListPlot[{t10a,t10b},SymbolStyle->{GrayLevel[0],GrayLevel[0.5`]},SymbolShape->{Stem,PlotSymbol[Box]}]

SeedRandom[2004];

t10c=RandomReal[{0,1},10];

ListPlot[{t10b,t10c},SymbolStyle->{GrayLevel[0],GrayLevel[0.1`]},SymbolShape->{Stem,PlotSymbol[Box]}]

t5000 = RandomReal[1,{5000,3}];

Graphics3D[Point[t5000]]

Graphics[Point[RandomReal[NormalDistribution[],{5000,2}]]]

FactorInteger[2147483399]

<<"PrimalityProving`"

PrimeQ[2147483399]