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.

Previous Showing 21-24 of 24 results.

A367630 Numbers k such that at least one 3-smooth number with k prime factors (counted with multiplicity) is the average of a twin prime pair.

Original entry on oeis.org

2, 3, 5, 7, 9, 13, 17, 19, 23, 25, 29, 31, 35, 37, 41, 43, 45, 47, 51, 59, 65, 91, 99, 109, 121, 145, 151, 155, 175, 213, 259, 283, 291, 297, 301, 349, 365, 369, 415, 573, 683, 1017, 1103, 1195, 1347, 1537, 1619, 1717, 1751, 1957, 2203, 2431, 2503, 2653, 2921
Offset: 1

Views

Author

Jon E. Schoenfield, Nov 24 2023

Keywords

Comments

Equivalently, numbers k for which there is at least one j such that 2^j * 3^(k-j) is the average of a twin prime pair.
The only even term is 2: the corresponding twin prime pairs are 2^2 * 3^0 -+ 1 = (3,5) and 2^1 * 3^1 -+ 1 = (5,7), each of which includes 5 as an element of the pair. If k is even, 2^j * 3^(k-j) differs by 1 from a multiple of 5 for every j.

Examples

			5 is a term: 2^3 * 3^2 = 8*9 = 72 is the average of a twin prime pair (and the same is true of 2^2 * 3^3 = 4*27 = 108).
		

Crossrefs

Cf. A027856.

A386857 Numbers k such that both 9*2^k - 1 and 9*2^k + 1 are prime.

Original entry on oeis.org

1, 3, 7, 43, 63, 211
Offset: 1

Views

Author

Ken Clements, Aug 05 2025

Keywords

Comments

The exponent, k, of 2 must be odd because the exponent, 2, of 3 (where 9 = 3^2) is even and the sum of the exponents of prime factors 2 and 3 must be odd to form a product that is a twin prime average. Of all subsequences of A027856, this is the longest known where the power of 3 is fixed.
Amiram Eldar noted that using A002236 and A002256, we obtain a(7) > 5.6*10^6, if it exists.

Examples

			a(1) = 1 because 2*9 = 18 with 17 and 19 prime.
a(2) = 3 because 8*9 = 72 with 71 and 73 prime.
a(3) = 7 because 128*9 = 1152 with 1151 and 1153 prime.
a(4) = 43 because 8796093022208*9 = 79164837199872 with 79164837199871 and 79164837199873 prime.
		

Crossrefs

Intersection of A002236 and A002256.

Programs

  • Maple
    q:= k-> (m-> andmap(isprime, [m-1, m+1]))(9*2^k):
    select(q, [2*i-1$i=1..111])[];  # Alois P. Heinz, Aug 08 2025
  • Python
    from gmpy2 import is_prime
    def is_TPpi2(e2, e3):
        N = 2**e2 * 3**e3
        return is_prime(N-1) and is_prime(N+1)
    print([k for k in range(1, 100001, 2) if is_TPpi2(k, 2)])

A387197 Numbers k such that 32 * 3^k - 1 is prime.

Original entry on oeis.org

0, 3, 4, 6, 46, 59, 84, 94, 124, 239, 267, 366, 371, 424, 616, 2139, 2299, 3523, 3563, 3843, 3923, 7627, 12751, 34798, 39911, 56568, 58779
Offset: 1

Views

Author

Ken Clements, Aug 21 2025

Keywords

Comments

a(28) > 10^5.
Conjecture: This sequence intersects with A387201 at k = 4 to form twin primes with center N = 2^5 * 3^4 = 2592 = A027856(10). Any such intersection has to be at an even k because if k is odd, either N-1 or N+1 has to be divisible by 5. A covering system can be constructed that eliminates all other intersections except where k = 4(mod 60), and for k > 4 with k = 4(mod 60), the search up to 10^5 makes the probability of another intersection in this residue class vanishingly small.

Crossrefs

Programs

  • Mathematica
    Select[Range[0, 4000], PrimeQ[32 * 3^# - 1] &] (* Amiram Eldar, Aug 21 2025 *)
  • Python
    from gmpy2 import is_prime
    print([ k for k in range(4000) if is_prime(32 * 3**k - 1)])

A387201 Numbers k such that 32 * 3^k + 1 is prime.

Original entry on oeis.org

1, 4, 8, 9, 32, 36, 48, 74, 112, 186, 204, 364, 393, 572, 781, 1208, 2624, 2778, 4522, 4896, 5272, 32884
Offset: 1

Views

Author

Ken Clements, Aug 21 2025

Keywords

Comments

a(23) > 10^5.
Conjecture: This sequence intersects with A387197 at k = 4 to form twin primes with center N = 2^5 * 3^4 = 2592 = A027856(10). Any such intersection has to be at an even k because if k is odd, either N-1 or N+1 has to be divisible by 5. A covering system can be constructed that eliminates all other intersections except where k == 4 (mod 60), and for k > 4 with k == 4 (mod 60), the search up to 10^5 makes the probability of another intersection in this residue class vanishingly small.

Crossrefs

Programs

  • Mathematica
    Select[Range[0, 5000], PrimeQ[32 * 3^# + 1] &] (* Amiram Eldar, Aug 21 2025 *)
  • Python
    from gmpy2 import is_prime
    print([ k for k in range(4000) if is_prime(32 * 3**k + 1)])
Previous Showing 21-24 of 24 results.