OFFSET
1,1
COMMENTS
LINKS
J.-M. De Koninck, J. B. Friedlander, and F. Luca, On strings of consecutive integers with a distinct number of prime factors, Proc. Amer. Math. Soc., 137 (2009), 1585-1592.
MATHEMATICA
bigomega[n_] := Plus@@Last/@FactorInteger[n]; f[n_] := For[k=1; s={bigomega[n]}, True, k++, If[MemberQ[s, z=bigomega[n+k]], Return[k], AppendTo[s, z]]]; a[n_] := For[x=1, True, x++, If[f[x]==n, Return[x]]]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Dean Hickerson, Mar 05 2002
EXTENSIONS
a(11) from Donovan Johnson, Oct 15 2008
STATUS
approved