OFFSET
1,2
COMMENTS
This sequence is infinite since the asymptotic density of A130091 is 0.
The corresponding values of the record gaps are 1, 2, 3, 5, 7, 11, 13, 20, 22, 29, 33, 40, 51, 55, 59, 67, 72, 82, 84, 87, 100, 121, 126, 132, 138, 147, 149, 150, 195, 209, 211, ...
EXAMPLE
MATHEMATICA
q[n_] := Length[(e = FactorInteger[n][[;; , 2]])] == Length[Union[e]]; seq = {}; m = 1; dm = 0; Do[If[q[n], d = n - m; If[d > dm, dm = d; AppendTo[seq, m]]; m = n], {n, 1, 10^6}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Feb 25 2021
STATUS
approved