login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A342031 Starts of runs of 5 consecutive numbers that have mutually distinct exponents in their prime factorization (A130091). 5
1, 16, 241, 2644, 4372, 1431124, 12502348, 112753348, 750031648, 2844282247, 5882272324, 6741230497, 8004453748, 87346072024, 130489991521, 218551872247, 245127093748, 460925878624, 804065433748, 1176638279524, 2210511903748, 2404792968748, 2483167488748, 3121595927521 (list; graph; refs; listen; history; text; internal format)
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

Subsequence of A130091, A342028, A342029 and A342030.

Sequence in context: A204793 A173605 A175720 * A135518 A179092 A231020

Adjacent sequences:  A342028 A342029 A342030 * A342032 A342033 A342034

KEYWORD

nonn

AUTHOR

Amiram Eldar, Feb 25 2021

EXTENSIONS

a(15) and beyond from Martin Ehrenstein, Mar 08 2021

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 24 23:25 EDT 2021. Contains 346273 sequences. (Running on oeis4.)