OFFSET
1,2
COMMENTS
Bernardo Recamán Santos (2015) showed that there is no run of more than 23 consecutive numbers, since numbers of the form 36*k - 6 and 36*k + 6 do not have distinct exponents. Pace Nielsen and Adam P. Goucher showed that there can be only finitely many runs of 23 consecutive numbers (see MathOverflow link).
Aktaş and Ram Murty (2017) gave an explicit upper bound to such a run of 23 numbers. They found the first 5 terms of this sequence (and stated that there are a few more known up to 7*10^8), and said that we may conjecture (based on numerical evidence) that there are no 6 consecutive numbers.
LINKS
Martin Ehrenstein, Table of n, a(n) for n = 1..43
Kevser Aktaş and M. Ram Murty, On the number of special numbers, Proceedings - Mathematical Sciences, Vol. 127, No. 3 (2017), pp. 423-430; alternative link.
Bernardo Recamán Santos, Consecutive numbers with mutually distinct exponents in their canonical prime factorization, MathOverflow, Mar 30 2015.
EXAMPLE
16 is a term since 16 = 2^4, 17, 18 = 2*3^2, 19 and 20 = 2^2*5 all have distinct exponents in their prime factorization.
MATHEMATICA
q[n_] := Length[(e = FactorInteger[n][[;; , 2]])] == Length[Union[e]]; v = q /@ Range[5]; seq = {}; Do[If[And @@ v, AppendTo[seq, k - 5]]; v = Join[Rest[v], {q[k]}], {k, 6, 1.3*10^6}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Feb 25 2021
EXTENSIONS
a(15) and beyond from Martin Ehrenstein, Mar 08 2021
STATUS
approved