A342031 -id:A342031 - cp's OEIS frontend

A130091 Numbers having in their canonical prime factorization mutually distinct exponents.

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 24, 25, 27, 28, 29, 31, 32, 37, 40, 41, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 61, 63, 64, 67, 68, 71, 72, 73, 75, 76, 79, 80, 81, 83, 88, 89, 92, 96, 97, 98, 99, 101, 103, 104, 107, 108, 109, 112, 113, 116

Offset: 1

Reinhard Zumkeller, May 06 2007

nonn

This sequence does not contain any number of the form 36n-6 or 36n+6, as such numbers are divisible by 6 but not by 4 or 9. Consequently, this sequence does not contain 24 consecutive integers. The quest for the greatest number of consecutive integers in this sequence has ties to the ABC conjecture (see the MathOverflow link). - Danny Rorabaugh, Sep 23 2015
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are Heinz numbers of integer partitions with distinct multiplicities. The enumeration of these partitions by sum is given by A098859. - Gus Wiseman, May 04 2019
Aktaş and Ram Murty (2017) called these terms "special numbers" ("for lack of a better word"). They prove that the number of terms below x is ~ c*x/log(x), where c > 1 is a constant. - Amiram Eldar, Feb 25 2021
Sequence A005940(1+A328592(n)), n >= 1, sorted into ascending order. - Antti Karttunen, Apr 03 2022

			From _Gus Wiseman_, May 04 2019: (Start)
The sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  11: {5}
  12: {1,1,2}
  13: {6}
  16: {1,1,1,1}
  17: {7}
  18: {1,2,2}
  19: {8}
  20: {1,1,3}
  23: {9}
  24: {1,1,1,2}
  25: {3,3}
  27: {2,2,2}
(End)

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
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.
MathOverflow, Consecutive numbers with mutually distinct exponents in their canonical prime factorization
Carlo Sanna, On the number of distinct exponents in the prime factorization of an integer, arXiv:1902.09224 [math.NT], 2019.
Eric Weisstein's World of Mathematics, Prime Factorization

Complement of A130092. A351564 is the characteristic function.
Subsequence of A351294.
Cf. A000961, A006939, A181818, A304686, A319161, A342028, A342029, A342030, A342031, A342032 (subsequences).
Cf. A005940, A048767, A048768, A056239, A098859, A112798, A118914, A181796, A217605, A325326, A325337, A325368, A327498, A327523, A328592, A336423, A336424, A336569, A336570, A336571, A343012, A343013.

filter:= proc(t) local f;
f:= map2(op,2,ifactors(t)[2]);
nops(f) = nops(convert(f,set));
end proc:
select(filter, [$1..1000]); # Robert Israel, Mar 30 2015

t[n_] := FactorInteger[n][[All, 2]]; Select[Range[400],  Union[t[#]] == Sort[t[#]] &]  (* Clark Kimberling, Mar 12 2015 *)

isok(n) = {nbf = omega(n); f = factor(n); for (i = 1, nbf, for (j = i+1, nbf, if (f[i, 2] == f[j, 2], return (0)););); return (1);} \\ Michel Marcus, Aug 18 2013

isA130091(n) = issquarefree(factorback(apply(e->prime(e), (factor(n)[, 2])))); \\ Antti Karttunen, Apr 03 2022

a(n) < A130092(n) for n<=150, a(n) > A130092(n) for n>150.

A342028 Numbers k such that k and k+1 both have mutually distinct exponents in their prime factorization (A130091).

Original entry on oeis.org

1, 2, 3, 4, 7, 8, 11, 12, 16, 17, 18, 19, 23, 24, 27, 28, 31, 40, 43, 44, 47, 48, 49, 52, 53, 63, 67, 71, 72, 75, 79, 80, 88, 96, 97, 98, 103, 107, 108, 112, 116, 124, 127, 135, 136, 147, 148, 151, 152, 162, 163, 171, 172, 175, 188, 191, 192, 199, 207, 211, 223

Offset: 1

Amiram Eldar, Feb 25 2021

nonn

			2 is a term since both 2 and 3 have a single exponent (1) in their prime factorization.
5 is not a term since 6 = 2*3 has two equal exponents (1) in its prime factorization.

Amiram Eldar, Table of n, a(n) for n = 1..10000
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.

Subsequence of A130091.

Subsequences: A342029, A342030, A342031.

q[n_] := Length[(e = FactorInteger[n][[;; , 2]])] == Length[Union[e]]; Select[Range[250], q[#] && q[# + 1] &]

A342029 Starts of runs of 3 consecutive numbers that have mutually distinct exponents in their prime factorization (A130091).

Original entry on oeis.org

1, 2, 3, 7, 11, 16, 17, 18, 23, 27, 43, 47, 48, 52, 71, 79, 96, 97, 107, 135, 147, 151, 162, 171, 191, 241, 242, 243, 331, 351, 359, 367, 387, 423, 431, 486, 507, 539, 547, 567, 575, 576, 599, 603, 639, 907, 927, 1051, 1107, 1123, 1151, 1215, 1249, 1250, 1323

Offset: 1

Amiram Eldar, Feb 25 2021

nonn

			2 is a term since 2, 3 and 4 = 2^2 all have a single exponent in their prime factorization.
4 is not a term since in the run {4, 5, 6} the third member 6 = 2*3 has two equal exponents (1) in its prime factorization.

Amiram Eldar, Table of n, a(n) for n = 1..10000
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.

Subsequence of A130091 and A342028.

Subsequences: A342030, A342031.

q[n_] := Length[(e = FactorInteger[n][[;; , 2]])] == Length[Union[e]]; v = q /@ Range[3]; seq = {}; Do[If[And @@ v, AppendTo[seq, k - 3]]; v = Join[Rest[v], {q[k]}], {k, 4, 1500}]; seq

A342030 Starts of runs of 4 consecutive numbers that have mutually distinct exponents in their prime factorization (A130091).

Original entry on oeis.org

1, 2, 16, 17, 47, 96, 241, 242, 575, 1249, 2644, 2645, 4049, 4372, 4373, 4799, 9124, 12248, 33749, 72250, 120049, 130436, 281249, 303748, 1431124, 1431125, 1531250, 2101247, 3693761, 4085656, 4910975, 12502348, 12502349, 14268481, 22997761, 25486324, 26693549

Offset: 1

Amiram Eldar, Feb 25 2021

nonn

			2 is a term since 2, 3, 4 = 2^2, and 5 all have a single exponent in their prime factorization.
3 is not a term since in the run {3, 4, 5, 6} the fourth member 6 = 2*3 has two equal exponents (1) in its prime factorization.

Amiram Eldar, Table of n, a(n) for n = 1..196 (terms below 10^11)
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.

Subsequence of A130091, A342028 and A342029.

A342031 is a subsequence.

q[n_] := Length[(e = FactorInteger[n][[;; , 2]])] == Length[Union[e]]; v = q /@ Range[4]; seq = {}; Do[If[And @@ v, AppendTo[seq, k - 4]]; v = Join[Rest[v], {q[k]}], {k, 5, 10^5}]; seq

A342032 Numbers with mutually distinct exponents in their prime factorization (A130091) with a record gap to the next term of A130091.

Original entry on oeis.org

1, 5, 13, 32, 200, 212, 1759, 2313, 5351, 16144, 51071, 128056, 159233, 630737, 1555349, 1627984, 2666309, 6838261, 12243457, 14619901, 25282087, 65891668, 78971281, 121377079, 543433039, 684779072, 1675445647, 2078471579, 2228572121, 11135788439, 42801667036

Offset: 1

Amiram Eldar, Feb 25 2021

nonn

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, ...

			a(1) = 1 since both 1 and 1+1 = 2 are in A130091.
a(2) = 5 since 5 and 5+2 = 7 are in A130091 and 6 is not.
a(3) = 13 since 13 and 13+3 = 16 are in A130091 and 14 and 15 are not.

Cf. A130091, A342028, A342029, A342030, A342031.

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

cp's OEIS Frontend

A130091 Numbers having in their canonical prime factorization mutually distinct exponents.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Formula

A342028 Numbers k such that k and k+1 both have mutually distinct exponents in their prime factorization (A130091).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A342029 Starts of runs of 3 consecutive numbers that have mutually distinct exponents in their prime factorization (A130091).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A342030 Starts of runs of 4 consecutive numbers that have mutually distinct exponents in their prime factorization (A130091).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A342032 Numbers with mutually distinct exponents in their prime factorization (A130091) with a record gap to the next term of A130091.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica