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-3 of 3 results.

A341670 a(n) is conjecturally the largest prime p such that, for every prime q > p, q^n - 1 has more divisors than does p^n - 1, or -1 if no such prime p exists.

Original entry on oeis.org

5, 73, 5, 101, 3, 167, 5, 71, 3, 43, 5, 167, 5, 73, 3, 19, 2, 17, 2, 19, 3, 23, 2, 71, 2, 7, 2, 29, -1, 13, 2, 11, 2, 7, 2, 13, 2, 3, 2, 11, 2, 7, -1, 23, 2, 17, 5, 17, 5, 7, -1, 7, -1, 11, -1, 5, 2, 7, 2, 11, 2, 2, 3, 3, 2, 5, 2, 2, 2, 3, 3, 11, -1, 2, -1, 7
Offset: 1

Views

Author

Jon E. Schoenfield, Feb 26 2021

Keywords

Comments

Conjecture: a(n) is also the largest prime p for which there exists no prime q > p such that p^n - 1 and q^n - 1 have the same number of divisors.

Examples

			It is conjectured that there are infinitely many primes q such that q-1 has exactly A309906(1)=4 divisors (see also A005385), and p=5 is the largest prime p such that p-1 has fewer than 4 divisors, so a(1)=5.
Similarly, there appear to be infinitely many primes q such that q^2 - 1 has exactly A309906(2)=32 divisors (e.g., primes q such that, of the two factors q-1 and q+1 of q^2 - 1, one is twice a prime > 3 and the other is 12 times a prime > 3), and p=73 is the largest prime p such that p^2 - 1 has fewer than 32 divisors (see A341655), so a(2)=73.
a(4)=101 is the largest prime p such that p^4 - 1 has fewer than 160 divisors, and there are conjecturally infinitely many primes q such that q^4 - 1 has exactly A309906(4)=160 divisors.
a(29)=-1 because there are conjecturally infinitely many primes q such that q^29 - 1 has exactly A309906(29)=8 divisors, and there exists no prime p such that p^29 - 1 has fewer than 8 divisors.
		

Crossrefs

A341666 Primes p such that p^6 - 1 has 384 divisors.

Original entry on oeis.org

29, 43, 59, 83, 157, 193, 317, 1093, 1373, 1523, 2803, 3557, 3677, 3733, 12227, 13093, 20507, 25933, 28163, 29243, 32443, 33493, 38603, 53917, 100523, 109883, 122117, 134363, 140197, 190573, 236723, 242773, 249397, 256757, 258403, 274237, 299723, 333283
Offset: 1

Views

Author

Jon E. Schoenfield, Feb 26 2021

Keywords

Comments

Conjecture: sequence is infinite.
For every term p, p^6 - 1 is of the form 2^3 * 3^2 * 7 * q * r * s * t, where q, r, s, and t are distinct primes > 7, with four exceptions: p = 29, 59, 193, and 1373 (see Example section).

Examples

			  p =
n a(n)                factorization of p^6 - 1
- ---- ------------------------------------------------------
1   29 2^3 * 3^2 * 5 * 7   *  13 *     67 *     271
2   43 2^3 * 3^2     * 7   *  11 *     13 *     139 *     631
3   59 2^3 * 3^2 * 5 * 7   *  29 *    163 *    3541
4   83 2^3 * 3^2     * 7   *  19 *     41 *     367 *    2269
5  157 2^3 * 3^2     * 7   *  13 *     79 *    3499 *    8269
6  193 2^7 * 3^2     * 7   *  97 *   1783 *   37057
7  317 2^3 * 3^2     * 7   *  53 *     79 *   14401 *   33391
8 1093 2^3 * 3^2     * 7   *  13 *    547 *  398581 * 1193557
9 1373 2^3 * 3^2     * 7^3 * 229 * 627919 * 1886503
		

Crossrefs

Programs

  • Mathematica
    Select[Range[350000], PrimeQ[#] && DivisorSigma[0, #^6 - 1] == 384 &] (* Amiram Eldar, Feb 27 2021 *)
  • PARI
    isok(p) = isprime(p) && (numdiv(p^6-1) == 384); \\ Michel Marcus, Feb 27 2021

A341667 Primes p such that p^6 - 1 has fewer than 384 divisors.

Original entry on oeis.org

2, 3, 5, 7, 11, 13, 17, 19, 23, 41, 53, 71, 73, 167
Offset: 1

Views

Author

Jon E. Schoenfield, Feb 26 2021

Keywords

Comments

For all primes p > 167, p^6 - 1 has at least 384 divisors.

Examples

			      p =
   n  a(n)      factorization of p^6 - 1       tau(p^6 - 1)
  --  ----  ---------------------------------  ------------
   1     2  3^2 * 7                                   6
   2     3  2^3 * 7 * 13                             16
   3     5  2^3 * 3^2 * 7 * 31                       48
   4     7  2^4 * 3^2 * 19 * 43                      60
   5    11  2^3 * 3^2 * 5 * 7 * 19 * 37             192
   6    13  2^3 * 3^2 * 7 * 61 * 157                 96
   7    17  2^5 * 3^3 * 7 * 13 * 307                192
   8    19  2^3 * 3^3 * 5 * 7^3 * 127               256
   9    23  2^4 * 3^2 * 7 * 11 * 13^2 * 79          360
  10    41  2^4 * 3^2 * 5 * 7 * 547 * 1723          240
  11    53  2^3 * 3^4 * 7 * 13 * 409 * 919          320
  12    71  2^4 * 3^3 * 5 * 7 * 1657 * 5113         320
  13    73  2^4 * 3^3 * 7 * 37 * 751 * 1801         320
  14   167  2^4 * 3^2 * 7 * 83 * 9241 * 28057       240
		

Crossrefs

Programs

  • Mathematica
    Select[Range[200], PrimeQ[#] && DivisorSigma[0, #^6 - 1] < 384 &] (* Amiram Eldar, Feb 27 2021 *)
Showing 1-3 of 3 results.