How many distinct prime factors?

number = 5487525252462375652364513298043621345687;

findingprimefactors[numb_,option_] := Module[{},
temp = FactorInteger[numb];
numfactors = Length[temp];

If[option == 1,
{
Print["Number is ", numb, "."];
Print["Number of prime factors is ", numfactors, "."];
Print["Expected number of prime factors is ",  1.0 Log[ Log[numb]], "."];
Print["Prime factorization is ",temp, "."];
}, Return[numfactors]];
];

findingprimefactors[number ,1]

histogramfactors[start_,numdo_] := Module[{},
output = {};
For[n = 1, n ≤ numdo, n++, output = AppendTo[output, findingprimefactors[ start + n,0]]];
Print[Histogram[output,Automatic, "Probability"]];
];

Timing[histogramfactors[5487525252462375634352364513298043621345687989991218989811,1000]]

4273/60.

Log[5487525252462375634352364513298043621345687989991218989811.]

n = 10
m = 10
p = 1/2
n (1/2)