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.

A386796 Numbers that have exactly one exponent in their prime factorization that is equal to 2.

Original entry on oeis.org

4, 9, 12, 18, 20, 25, 28, 44, 45, 49, 50, 52, 60, 63, 68, 72, 75, 76, 84, 90, 92, 98, 99, 108, 116, 117, 121, 124, 126, 132, 140, 144, 147, 148, 150, 153, 156, 164, 169, 171, 172, 175, 188, 198, 200, 204, 207, 212, 220, 228, 234, 236, 242, 244, 245, 260, 261, 268
Offset: 1

Views

Author

Amiram Eldar, Aug 02 2025

Keywords

Comments

First differs from its subsequence A060687 at n = 16: a(16) = 72 is not a term of A060687.
Differs from A286228 by having the terms 60, 72, 84, 90, ..., and not having the term 1.
Numbers k such that A369427(k) = 1.
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) = 0.22661832022705616779... (the product is A330596) (Elma and Martin, 2024).

Crossrefs

A060687 is a subsequence.
Numbers that have exactly one exponent in their prime factorization that is equal to k: A119251 (k=1), this sequence (k=2), A386800 (k=3), A386804 (k=4), A386808 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 2: A337050 (m=0), this sequence (m=1), A386797 (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[300], s[#] == 1 &]
  • PARI
    isok(k) = vecsum(apply(x -> if(x == 2, 1, 0), factor(k)[, 2])) == 1;

A386800 Numbers that have exactly one exponent in their prime factorization that is equal to 3.

Original entry on oeis.org

8, 24, 27, 40, 54, 56, 72, 88, 104, 108, 120, 125, 135, 136, 152, 168, 184, 189, 200, 232, 248, 250, 264, 270, 280, 296, 297, 312, 328, 343, 344, 351, 360, 375, 376, 378, 392, 408, 424, 432, 440, 456, 459, 472, 488, 500, 504, 513, 520, 536, 540, 552, 568, 584
Offset: 1

Views

Author

Amiram Eldar, Aug 03 2025

Keywords

Comments

First differs from its subsequence A381315 at n = 40: a(40) = 432 = 2^4 * 3^3 is not a term of A381315.
Numbers k such that A295883(k) = 1.
The asymptotic density of this sequence is Product_{p prime} (1 - 1/p^3 + 1/p^4) * Sum_{p prime} (p-1)/(p^4 - p + 1) = 0.092831691827595439609... (Elma and Martin, 2024).

Crossrefs

A381315 is subsequence.
Cf. A295883.
Numbers that have exactly one exponent in their prime factorization that is equal to k: A119251 (k=1), A386796 (k=2), this sequence (k=3), A386804 (k=4), A386808 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 3: A386799 (m=0), this sequence (m=1), A386801 (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[300], s[#] == 1 &]
  • PARI
    isok(k) = vecsum(apply(x -> if(x == 3, 1, 0), factor(k)[, 2])) == 1;

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;

A386805 Numbers that have exactly two exponents in their prime factorization that are equal to 4.

Original entry on oeis.org

1296, 6480, 9072, 10000, 14256, 16848, 22032, 24624, 29808, 30000, 32400, 37584, 38416, 40176, 45360, 47952, 50625, 53136, 55728, 60912, 63504, 68688, 70000, 71280, 76464, 79056, 84240, 86832, 90000, 92016, 94608, 99792, 101250, 102384, 107568, 110000, 110160, 115248
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) * ((Sum_{p prime} (p-1)/(p^5 - p + 1))^2 - Sum_{p prime} ((p-1)^2/(p^5 - p + 1)^2)) / 2 = 0.00032582100547959312658... (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), this sequence (k=4), A386809 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 4: A386803 (m=0), A386804 (m=1), this sequence (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[120000], s[#] == 2 &]
  • PARI
    isok(k) = vecsum(apply(x -> if(x == 4, 1, 0), factor(k)[, 2])) == 2;

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;

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

Views

Author

Amiram Eldar, Aug 03 2025

Keywords

Comments

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

Crossrefs

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

Programs

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