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.

A337050 Numbers without an exponent 2 in their prime factorization.

Original entry on oeis.org

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

Views

Author

Amiram Eldar, Aug 12 2020

Keywords

Comments

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

Examples

			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.
		

Crossrefs

Complement of A038109.
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).

Programs

  • Maple
    q:= n-> andmap(i-> i[2]<>2, ifactors(n)[2]):
    select(q, [$1..100])[];  # Alois P. Heinz, Aug 12 2020
  • Mathematica
    Select[Range[100], !MemberQ[FactorInteger[#][[;;, 2]], 2] &]
  • PARI
    is(n) = {my(f = factor(n)); for(i = 1, #f~, if(f[i, 2] == 2, return(0))); 1; } \\ Amiram Eldar, Oct 21 2023

Formula

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

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;

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;

A386802 Numbers that have exactly three exponents in their prime factorization that are equal to 3.

Original entry on oeis.org

27000, 74088, 189000, 287496, 297000, 343000, 351000, 370440, 459000, 474552, 513000, 621000, 783000, 814968, 837000, 963144, 999000, 1029000, 1061208, 1107000, 1157625, 1161000, 1259496, 1269000, 1323000, 1331000, 1407672, 1431000, 1437480, 1481544, 1593000, 1647000
Offset: 1

Views

Author

Amiram Eldar, Aug 03 2025

Keywords

Comments

Subsequence of A176359 and first differs from it at n = 173: A176359(173) = 9261000 = 2^3 * 3^3 * 5^3 * 7^3 is not a term of this sequence.
Numbers k such that A295883(k) = 3.
The asymptotic density of this sequence is Product_{p primes} (1 - 1/p^3 + 1/p^4) * (s(1)^3 + 3*s(1)*s(2) + 2*s(3)) / 6 = 0.000018940548516752487509..., where s(m) = (-1)^(m-1) * Sum_{p prime} (1/(p^4/(p-1)-1))^m (Elma and Martin, 2024).

Crossrefs

Subsequence of A176359.
Cf. A295883.
Numbers that have exactly three exponents in their prime factorization that are equal to k: A386798 (k=2), this sequence (k=3), A386806 (k=4), A386810 (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 3: A386799 (m=0), A386800 (m=1), A386801 (m=2), this sequence (m=3).

Programs

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

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;

A386807 Numbers without an exponent 5 in their prime factorization.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 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 A166718 at n = 47: a(47) = 48 = 2^4 * 3 is not a term of A166718.
Differs from A373868 by having the terms 1, 1024, 32768, 59049, ..., and not having the terms 96, 160, 224, ... .
These numbers were named semi-5-free integers by Suryanarayana (1971).
The asymptotic density of this sequence is Product_{p prime} (1 - 1/p^5 + 1/p^6) = 0.98136375107187963656... (Suryanarayana, 1971).

Crossrefs

A166718 is a subsequence.
Cf. A373868.
Numbers without an exponent k in their prime factorization: A001694 (k=1), A337050 (k=2), A386799 (k=3), A386803 (k=4), this sequence (k=5).
Numbers that have exactly m exponents in their prime factorization that are equal to 5: this sequence (m=0), A386808 (m=1), A386809 (m=2), A386810 (m=3).

Programs

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