OFFSET
1,1
COMMENTS
602 is the first number having 4 and 5 consecutive integers with 3 prime factors. - T. D. Noe, Mar 19 2014
EXAMPLE
a(4)=602 because 602 is the start of a record breaking run of 5 consecutive integers (602 to 606) each having 3 prime factors; i.e. bigomega(n)=A001222(n)=3 for n = 602, ..., 606.
MATHEMATICA
bigomega[n_] := Plus@@Last/@FactorInteger[n]; For[n=1; m=l=0, True, n++, If[bigomega[n]==3, l++, If[l>m, m=l; Print[n-l, " ", l]]; l=0]]
Module[{nn=8, po}, po=PrimeOmega[Range[5000000]]; Flatten[Table[ SequencePosition[ po, PadRight[{}, n, 3], 1], {n, nn}], 1]][[All, 1]]//Union (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 14 2019 *)
PROG
(PARI) show(lim)=my(was, r, ct); forfactored(n=2, lim\1+1, is=vecsum(n[2][, 2])==3; if(is, ct++; if(ct>r, r=ct; print(r" "n[1]-r+1)), ct=0)) \\ Charles R Greathouse IV, Jun 26 2019
CROSSREFS
KEYWORD
fini,full,nonn
AUTHOR
Shyam Sunder Gupta, Feb 07 2002
EXTENSIONS
Edited by Dean Hickerson, Jul 31 2002
STATUS
approved