cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-6 of 6 results.

A386797 Numbers that have exactly two exponents in their prime factorization that are equal to 2.

Original entry on oeis.org

36, 100, 180, 196, 225, 252, 300, 396, 441, 450, 468, 484, 588, 612, 676, 684, 700, 828, 882, 980, 1044, 1089, 1100, 1116, 1156, 1225, 1260, 1300, 1332, 1444, 1452, 1476, 1521, 1548, 1575, 1692, 1700, 1800, 1900, 1908, 1980, 2028, 2100, 2116, 2124, 2156, 2178, 2196
Offset: 1

Views

Author

Amiram Eldar, Aug 02 2025

Keywords

Comments

First differs from its subsequence A375144 at n = 38: a(38) = 1800 = 2^3 * 3^2 * 5^2 is not a term of A375144.
Numbers k such that A369427(k) = 2.
The asymptotic density of this sequence is Product_{p primes} (1 - 1/p^2 + 1/p^3) * ((Sum_{p prime} (p-1)/(p^3 - p + 1))^2 - Sum_{p prime} ((p-1)^2/(p^3 - p + 1)^2)) / 2 = 0.023701044250873975412... (the product is A330596) (Elma and Martin, 2024).

Crossrefs

A375144 is a subsequence.
Numbers that have exactly two exponents in their prime factorization that are equal to k: this sequence (k=2), A386801 (k=3), A386805 (k=4), A386809 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 2: A337050 (m=0), A386796 (m=1), this sequence (m=2), A386798 (m=3).

Programs

  • Mathematica
    f[p_, e_] := If[e == 2, 1, 0]; s[1] = 0; s[n_] := Plus @@ f @@@ FactorInteger[n]; Select[Range[2200], s[#] == 2 &]
  • PARI
    isok(k) = vecsum(apply(x -> if(x == 2, 1, 0), factor(k)[, 2])) == 2;

A386801 Numbers that have exactly two exponents in their prime factorization that are equal to 3.

Original entry on oeis.org

216, 1000, 1080, 1512, 2376, 2744, 2808, 3000, 3375, 3672, 4104, 4968, 5400, 6264, 6696, 6750, 7000, 7560, 7992, 8232, 8856, 9000, 9261, 9288, 10152, 10584, 10648, 11000, 11448, 11880, 12744, 13000, 13176, 13500, 13720, 14040, 14472, 15336, 15768, 16632, 17000
Offset: 1

Views

Author

Amiram Eldar, Aug 03 2025

Keywords

Comments

Subsequence of A109399 and first differs from it at n = 64: A109399(64) = 27000 = 2^3 * 3^3 * 5^3 is not a term of this sequence.
Numbers k such that A295883(k) = 2.
The asymptotic density of this sequence is Product_{p primes} (1 - 1/p^3 + 1/p^4) * ((Sum_{p prime} (p-1)/(p^4 - p + 1))^2 - Sum_{p prime} ((p-1)^2/(p^4 - p + 1)^2)) / 2 = 0.0024403883082851652103... (Elma and Martin, 2024).

Crossrefs

Subsequence of A109399.
Cf. A295883.
Numbers that have exactly two exponents in their prime factorization that are equal to k: A386797 (k=2), this sequence (k=3), A386805 (k=4), A386809 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 3: A386799 (m=0), A386800 (m=1), this sequence (m=2), A386802 (m=3).

Programs

  • Mathematica
    f[p_, e_] := If[e == 3, 1, 0]; s[1] = 0; s[n_] := Plus @@ f @@@ FactorInteger[n]; Select[Range[17000], s[#] == 2 &]
  • PARI
    isok(k) = vecsum(apply(x -> if(x == 3, 1, 0), factor(k)[, 2])) == 2;

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

Views

Author

Amiram Eldar, Aug 03 2025

Keywords

Comments

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

Crossrefs

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

Programs

  • Mathematica
    Select[Range[100], !MemberQ[FactorInteger[#][[;; , 2]], 4] &]
  • PARI
    isok(k) = vecsum(apply(x -> if(x == 4, 1, 0), factor(k)[, 2])) == 0;

A386804 Numbers that have exactly one exponent in their prime factorization that is equal to 4.

Original entry on oeis.org

16, 48, 80, 81, 112, 144, 162, 176, 208, 240, 272, 304, 324, 336, 368, 400, 405, 432, 464, 496, 528, 560, 567, 592, 624, 625, 648, 656, 688, 720, 752, 784, 810, 816, 848, 880, 891, 912, 944, 976, 1008, 1040, 1053, 1072, 1104, 1134, 1136, 1168, 1200, 1232, 1250
Offset: 1

Views

Author

Amiram Eldar, Aug 03 2025

Keywords

Comments

Subsequence of A336595 and first differs from it at n = 21: A336595(21) = 512 = 2^9 is not a term of this sequence.
The asymptotic density of this sequence is Product_{p prime} (1 - 1/p^4 + 1/p^5) * Sum_{p prime} (p-1)/(p^5 - p + 1) = 0.04058504714976055893... (Elma and Martin, 2024).

Crossrefs

Subsequence of A336595.
Numbers that have exactly one exponent in their prime factorization that is equal to k: A119251 (k=1), A386796 (k=2), A386800 (k=3), this sequence (k=4), A386808 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 4: A386803 (m=0), this sequence (m=1), A386805 (m=2), A386806 (m=3).

Programs

  • Mathematica
    f[p_, e_] := If[e == 4, 1, 0]; s[1] = 0; s[n_] := Plus @@ f @@@ FactorInteger[n]; Select[Range[1300], s[#] == 1 &]
  • PARI
    isok(k) = vecsum(apply(x -> if(x == 4, 1, 0), factor(k)[, 2])) == 1;

A386806 Numbers that have exactly three exponents in their prime factorization that are equal to 4.

Original entry on oeis.org

810000, 3111696, 5670000, 8910000, 10530000, 13770000, 15390000, 15558480, 18630000, 18974736, 23490000, 24010000, 25110000, 29970000, 33210000, 34228656, 34830000, 37015056, 38070000, 39690000, 40452048, 42930000, 47790000, 49410000, 52898832, 54270000, 57510000
Offset: 1

Views

Author

Amiram Eldar, Aug 03 2025

Keywords

Comments

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

Crossrefs

Numbers that have exactly three exponents in their prime factorization that are equal to k: A386798 (k=2), A386802 (k=3), this sequence (k=4), A386810 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 4: A386803 (m=0), A386804 (m=1), A386805 (m=2), this sequence (m=3).

Programs

  • Mathematica
    seq[lim_] := Module[{s = {}, sqfs = Select[Range[Surd[lim, 4]], SquareFreeQ[#] && PrimeNu[#] == 3 &]}, Do[s = Join[s, sqf^4 * Select[Range[lim/sqf^4], CoprimeQ[#, sqf] && !MemberQ[FactorInteger[#][[;; , 2]], 4] &]], {sqf, sqfs}]; Union[s]]; seq[6*10^7]
  • PARI
    isok(k) = vecsum(apply(x -> if(x == 4, 1, 0), factor(k)[, 2])) == 3;

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

Views

Author

Amiram Eldar, Aug 03 2025

Keywords

Comments

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

Crossrefs

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

Programs

  • Mathematica
    f[p_, e_] := If[e == 5, 1, 0]; s[1] = 0; s[n_] := Plus @@ f @@@ FactorInteger[n]; Select[Range[700000], s[#] == 2 &]
  • PARI
    isok(k) = vecsum(apply(x -> if(x == 5, 1, 0), factor(k)[, 2])) == 2;
Showing 1-6 of 6 results.