A386807 -id:A386807 - cp's OEIS frontend

A337050 Numbers without an exponent 2 in their prime factorization.

1, 2, 3, 5, 6, 7, 8, 10, 11, 13, 14, 15, 16, 17, 19, 21, 22, 23, 24, 26, 27, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 46, 47, 48, 51, 53, 54, 55, 56, 57, 58, 59, 61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78, 79, 80, 81, 82, 83, 85, 86, 87

Offset: 1

Amiram Eldar, Aug 12 2020

Numbers k such that the powerful part (A057521) of k is a cubefull number (A036966).
Numbers k such that A003557(k) = k/A007947(k) is a powerful number (A001694).
The asymptotic density of this sequence is Product_{primes p} (1 - 1/p^2 + 1/p^3) = 0.748535... (A330596).
A304364 is apparently a subsequence.
These numbers were named semi-2-free integers by Suryanarayana (1971). - Amiram Eldar, Dec 29 2020

			6 = 2^1 * 3^1 is a term since none of the exponents in its prime factorization is equal to 2.
9 = 3^2 is not a term since it has an exponent 2 in its prime factorization.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Ertan Elma and Greg Martin, Distribution of the number of prime factors with a given multiplicity, Canadian Mathematical Bulletin, Vol. 67, No. 4 (2024), pp. 1107-1122; arXiv preprint, arXiv:2406.04574 [math.NT], 2024.
D. Suryanarayana, Semi-k-free integers, Elemente der Mathematik, Vol. 26 (1971), pp. 39-40.
D. Suryanarayana and R. Sitaramachandra Rao, Distribution of semi-k-free integers, Proceedings of the American Mathematical Society, Vol. 37, No. 2 (1973), pp. 340-346.

Complement of A038109.
Cf. A003557, A007947, A057521, A304364, A330596.
A005117, A036537, A036966, A048109, A175496, A268335 and A336590 are subsequences.
Numbers without an exponent k in their prime factorization: A001694 (k=1), this sequence (k=2), A386799 (k=3), A386803 (k=4), A386807 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 2: this sequence (m=0), A386796 (m=1), A386797 (m=2), A386798 (m=3).

q:= n-> andmap(i-> i[2]<>2, ifactors(n)[2]):
select(q, [$1..100])[];  # Alois P. Heinz, Aug 12 2020

Select[Range[100], !MemberQ[FactorInteger[#][[;;, 2]], 2] &]

is(n) = {my(f = factor(n)); for(i = 1, #f~, if(f[i, 2] == 2, return(0))); 1; } \\ Amiram Eldar, Oct 21 2023

Sum_{n>=1} 1/a(n)^s = zeta(s) * Product_{p prime} (1 - 1/p^(2*s) + 1/p^(3*s)), for s > 1. - Amiram Eldar, Oct 21 2023

A386799 Numbers without an exponent 3 in their prime factorization.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75

Offset: 1

Amiram Eldar, Aug 02 2025

First differs from its subsequence A336592 at n = 116: a(116) = 128 = 2^7 is not a term of A336592.
Numbers k such that A295883(k) = 0.
These numbers were named semi-3-free integers by Suryanarayana (1971).
The asymptotic density of this sequence is Product_{p prime} (1 - 1/p^3 + 1/p^4) = 0.90470892696874750603... (Suryanarayana, 1971).

Amiram Eldar, Table of n, a(n) for n = 1..10000
Ertan Elma and Greg Martin, Distribution of the number of prime factors with a given multiplicity, Canadian Mathematical Bulletin, Vol. 67, No. 4 (2024), pp. 1107-1122; arXiv preprint, arXiv:2406.04574 [math.NT], 2024.
D. Suryanarayana, Semi-k-free integers, Elemente der Mathematik, Vol. 26 (1971), pp. 39-40.
D. Suryanarayana and R. Sitaramachandra Rao, Distribution of semi-k-free integers, Proceedings of the American Mathematical Society, Vol. 37, No. 2 (1973), pp. 340-346.
Index entries for sequences computed from indices in prime factorization.

Complement of A176297.	
A336592 is a subsequence.
Cf. A295883.
Numbers without an exponent k in their prime factorization: A001694 (k=1), A337050 (k=2), this sequence (k=3), A386803 (k=4), A386807 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 3: this sequence (m=0), A386800 (m=1), A386801 (m=2), A386802 (m=3).

Select[Range[100], !MemberQ[FactorInteger[#][[;; , 2]], 3] &]

isok(k) = vecsum(apply(x -> if(x == 3, 1, 0), factor(k)[, 2])) == 0;

A386803 Numbers without an exponent 4 in their prime factorization.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70

Offset: 1

Amiram Eldar, Aug 03 2025

First differs from its subsequence A209061 at n = 246: a(246) = 256 = 2^8 is not a term of A209061.
First differs from its subsequences A115063 and A369939 at n = 62: a(62) = 64 = 2^6 is not a term of A115063.
The complement of this sequence is a subsequence of A336595.
These numbers were named semi-4-free integers by Suryanarayana (1971).
The asymptotic density of this sequence is Product_{p prime} (1 - 1/p^4 + 1/p^5) = 0.95908865419555719109... (Suryanarayana, 1971).

Amiram Eldar, Table of n, a(n) for n = 1..10000
Ertan Elma and Greg Martin, Distribution of the number of prime factors with a given multiplicity, Canadian Mathematical Bulletin, Vol. 67, No. 4 (2024), pp. 1107-1122; arXiv preprint, arXiv:2406.04574 [math.NT], 2024.
D. Suryanarayana, Semi-k-free integers, Elemente der Mathematik, Vol. 26 (1971), pp. 39-40.
D. Suryanarayana and R. Sitaramachandra Rao, Distribution of semi-k-free integers, Proceedings of the American Mathematical Society, Vol. 37, No. 2 (1973), pp. 340-346.
Index entries for sequences computed from indices in prime factorization.

Subsequences: A115063, A209061, A369939.
Numbers without an exponent k in their prime factorization: A001694 (k=1), A337050 (k=2), A386799 (k=3), this sequence (k=4), A386807 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 4: this sequence (m=0), A386804 (m=1), A386805 (m=2), A386806 (m=3).

Select[Range[100], !MemberQ[FactorInteger[#][[;; , 2]], 4] &]

isok(k) = vecsum(apply(x -> if(x == 4, 1, 0), factor(k)[, 2])) == 0;

A386808 Numbers that have exactly one exponent in their prime factorization that is equal to 5.

Original entry on oeis.org

32, 96, 160, 224, 243, 288, 352, 416, 480, 486, 544, 608, 672, 736, 800, 864, 928, 972, 992, 1056, 1120, 1184, 1215, 1248, 1312, 1376, 1440, 1504, 1568, 1632, 1696, 1701, 1760, 1824, 1888, 1944, 1952, 2016, 2080, 2144, 2208, 2272, 2336, 2400, 2430, 2464, 2528

Offset: 1

Amiram Eldar, Aug 03 2025

Subsequence of A362841 and first differs from it at n = 145: A362841(145) = 7776 = 2^5 * 3 ^ 5 is not a term of this sequence.

The asymptotic density of this sequence is Product_{p prime} (1 - 1/p^5 + 1/p^6) * Sum_{p prime} (p-1)/(p^6 - p + 1) = 0.0185875810803524107305... (Elma and Martin, 2024).

Amiram Eldar, Table of n, a(n) for n = 1..10000
Ertan Elma and Greg Martin, Distribution of the number of prime factors with a given multiplicity, Canadian Mathematical Bulletin, Vol. 67, No. 4 (2024), pp. 1107-1122; arXiv preprint, arXiv:2406.04574 [math.NT], 2024.
Index entries for sequences computed from indices in prime factorization.

Cf. A362841.
Numbers that have exactly one exponent in their prime factorization that is equal to k: A119251 (k=1), A386796 (k=2), A386800 (k=3), A386804 (k=4), this sequence (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 5: A386807 (m=0), this sequence (m=1), A386809 (m=2), A386810 (m=3).

f[p_, e_] := If[e == 5, 1, 0]; s[1] = 0; s[n_] := Plus @@ f @@@ FactorInteger[n]; Select[Range[3000], s[#] == 1 &]

isok(k) = vecsum(apply(x -> if(x == 5, 1, 0), factor(k)[, 2])) == 1;

A386809 Numbers that have exactly two exponents in their prime factorization that are equal to 5.

Original entry on oeis.org

7776, 38880, 54432, 85536, 100000, 101088, 132192, 147744, 178848, 194400, 225504, 241056, 272160, 287712, 300000, 318816, 334368, 365472, 381024, 412128, 427680, 458784, 474336, 505440, 520992, 537824, 552096, 567648, 598752, 614304, 645408, 660960, 692064, 700000

Offset: 1

Amiram Eldar, Aug 03 2025

The asymptotic density of this sequence is Product_{p primes} (1 - 1/p^5 + 1/p^6) * ((Sum_{p prime} (p-1)/(p^6 - p + 1))^2 - Sum_{p prime} ((p-1)^2/(p^6 - p + 1)^2)) / 2 = 4.86539910559896710587...*10^(-5) (Elma and Martin, 2024).

Amiram Eldar, Table of n, a(n) for n = 1..10000
Ertan Elma and Greg Martin, Distribution of the number of prime factors with a given multiplicity, Canadian Mathematical Bulletin, Vol. 67, No. 4 (2024), pp. 1107-1122; arXiv preprint, arXiv:2406.04574 [math.NT], 2024.
Index entries for sequences computed from indices in prime factorization.

Numbers that have exactly two exponents in their prime factorization that are equal to k: A386797 (k=2), A386801 (k=3), A386805 (k=4), this sequence (k=5).

Numbers that have exactly m exponents in their prime factorization that are equal to 5: A386807 (m=0), A386808 (m=1), this sequence (m=2), A386810 (m=3).

f[p_, e_] := If[e == 5, 1, 0]; s[1] = 0; s[n_] := Plus @@ f @@@ FactorInteger[n]; Select[Range[700000], s[#] == 2 &]

isok(k) = vecsum(apply(x -> if(x == 5, 1, 0), factor(k)[, 2])) == 2;

A386810 Numbers that have exactly three exponents in their prime factorization that are equal to 5.

Original entry on oeis.org

24300000, 130691232, 170100000, 267300000, 315900000, 413100000, 461700000, 558900000, 653456160, 704700000, 753300000, 899100000, 996300000, 1044900000, 1142100000, 1190700000, 1252332576, 1287900000, 1433700000, 1437603552, 1482300000, 1628100000, 1680700000

Offset: 1

Amiram Eldar, Aug 03 2025

The asymptotic density of this sequence is Product_{p primes} (1 - 1/p^5 + 1/p^6) * (s(1)^3 + 3*s(1)*s(2) + 2*s(3)) / 6 = 1.38560245036673575581*10^(-8), where s(m) = (-1)^(m-1) * Sum_{p prime} (1/(p^6/(p-1)-1))^m (Elma and Martin, 2024).

Amiram Eldar, Table of n, a(n) for n = 1..10000
Ertan Elma and Greg Martin, Distribution of the number of prime factors with a given multiplicity, Canadian Mathematical Bulletin, Vol. 67, No. 4 (2024), pp. 1107-1122; arXiv preprint, arXiv:2406.04574 [math.NT], 2024.
Index entries for sequences computed from indices in prime factorization.

Numbers that have exactly three exponents in their prime factorization that are equal to k: A386798 (k=2), A386802 (k=3), A386806 (k=4), this sequence (k=5).

Numbers that have exactly m exponents in their prime factorization that are equal to 5: A386807 (m=0), A386808 (m=1), A386809 (m=2), this sequence (m=3).

M:= 10^10: # for terms <= M
B:= select(t -> ifactors(t)[2][..,2]=[1,1,1],[$1..floor(M^(1/5))]):
R:= NULL:
for i from 1 to nops(B) do
  Q:= select(t -> igcd(t,B[i]) = 1 and not member(5, ifactors(t)[2][..,2]), [$1 .. M/B[i]^5]);
  R:= R, op(B[i]^5 * Q);
od:
sort([R]); # Robert Israel, Aug 03 2025

seq[lim_] := Module[{s = {}, sqfs = Select[Range[Surd[lim, 5]], SquareFreeQ[#] && PrimeNu[#] == 3 &]}, Do[s = Join[s, sqf^5 * Select[Range[lim/sqf^5], CoprimeQ[#, sqf] && !MemberQ[FactorInteger[#][[;; , 2]], 5] &]], {sqf, sqfs}]; Union[s]]; seq[2*10^9]

isok(k) = vecsum(apply(x -> if(x == 5, 1, 0), factor(k)[, 2])) == 3;

cp's OEIS Frontend

A337050 Numbers without an exponent 2 in their prime factorization.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A386799 Numbers without an exponent 3 in their prime factorization.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

A386803 Numbers without an exponent 4 in their prime factorization.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

A386808 Numbers that have exactly one exponent in their prime factorization that is equal to 5.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

A386809 Numbers that have exactly two exponents in their prime factorization that are equal to 5.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

A386810 Numbers that have exactly three exponents in their prime factorization that are equal to 5.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI