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 51-60 of 67 results. Next

A282552 Difference between the multiplicative orders of 2 modulo p^2 and 2 modulo p, where p = prime(n).

Original entry on oeis.org

4, 16, 18, 100, 144, 128, 324, 242, 784, 150, 1296, 800, 588, 1058, 2704, 3364, 3600, 4356, 2450, 648, 3042, 6724, 968, 4608, 10000, 5202, 11236, 3888, 3136, 882, 16900, 9248, 19044, 21904, 2250, 8112, 26244, 13778, 29584, 31684, 32400, 18050, 18432, 38416
Offset: 2

Views

Author

Felix Fröhlich, Feb 18 2017

Keywords

Comments

a(n) = 0 iff A014664(n) = A243905(n), i.e., iff prime(n) is a Wieferich prime (A001220). So far this is known to be the case only for prime(183) = 1093 and prime(490) = 3511, i.e., a(183) = 0 and a(490) = 0.

Crossrefs

Programs

  • Mathematica
    Table[MultiplicativeOrder[2, #^2] - MultiplicativeOrder[2, #] &@ Prime@ n, {n, 2, 45}] (* Michael De Vlieger, Feb 18 2017 *)
  • PARI
    a(n) = my(p=prime(n)); znorder(Mod(2, p^2)) - znorder(Mod(2, p))

Formula

a(n) = A243905(n) - A014664(n).

A287145 Smallest k such that both of the consecutive Woodall numbers A003261(k) and A003261(k+1) are divisible by A014662(n), the n-th prime p with even order of 2 mod p.

Original entry on oeis.org

4, 13, 64, 89, 83, 188, 433, 701, 449, 342, 1429, 1768, 1889, 2276, 3484, 2423, 5149, 5776, 2069, 1693, 8644, 4793, 9728, 11173, 4237, 13364, 15049, 16108, 16469, 9455, 19501, 22364, 25876, 8929, 3131, 6524, 2311, 36313, 13017, 10114, 13582, 43069, 15962
Offset: 1

Views

Author

Amiram Eldar, May 20 2017

Keywords

Comments

Keller proved that the occurrence of 2 consecutive Woodall numbers that are divisible by the same prime is restricted to primes p with even h(p), the order of 2 mod p, and that there are an infinity of such pairs.

Examples

			11 is the 3rd prime p with even order of 2 mod p. A003261(k)=k*2^k-1 is divisible by 11 for k = 16,48,61,64,65,73,79,100,... The first occurrence of 2 consecutive numbers is 64 and 65, thus a(3) = 64.
		

Crossrefs

Programs

  • Mathematica
    a = {}; For[p=0, p<=11699, p++; If[!PrimeQ[p], Continue[]]; h=MultiplicativeOrder[2, p]; If[!EvenQ[h], Continue[]]; n=(h/2+1)*p-2; a = AppendTo[a, n]]; a

Formula

a(n) = (h(p)/2 + 1)*p - 2, where p=A014662(n), and h(p) is the order of 2 modulo p (A014664).

A321992 a(n) is the least prime q different from p = prime(n) such that 2^(q-1) == 1 (mod p), or 0 if no such prime exists.

Original entry on oeis.org

0, 5, 13, 13, 31, 37, 41, 37, 67, 113, 11, 73, 61, 29, 139, 157, 233, 181, 199, 211, 19, 157, 739, 23, 193, 401, 307, 743, 37, 29, 29, 521, 409, 277, 593, 31, 53, 487, 499, 1033, 1069, 541, 571, 97, 1373, 397, 421, 149, 1583, 457, 59, 953, 73, 101, 17, 787, 1609, 541, 461
Offset: 1

Views

Author

M. F. Hasler, Mar 15 2019

Keywords

Comments

a(n) = 0 only for n = 1, p = 2. For any odd prime, a prime q meeting the requirement does exist.
a(n) is the smallest prime q <> p such that q == 1 (mod ord_{p}(2)), where ord_{p}(2) = A002326((p-1)/2) = A014664(n). Strong conjecture: a(n) < A014664(n)^2. - Thomas Ordowski, Mar 15 2019

Examples

			For n = 2, p = prime(2) = 3, the least prime q different from 3 such that 2^(q-1) == 1 (mod 3) is a(2) = 5.
For n = 3, p = prime(3) = 5, the least prime q different from 5 such that 2^(q-1) == 1 (mod 5) is a(3) = 13.
		

Crossrefs

Programs

  • Maple
    f:= proc(n) local p,q,v,j;
      if n = 1 then return 0 fi;
      p:= ithprime(n);
      v:= numtheory:-order(2,p);
      for q from 1 by v do
        if q <> p and isprime(q) then return q fi
      od
    end proc:
    map(f, [$1..100]); # Robert Israel, Mar 17 2019
  • PARI
    A321992(n)={if(2
    				

A323376 Square array read by ascending antidiagonals: T(n,k) is the multiplicative order of the n-th prime modulo the k-th prime, or 0 if n = k, n >= 1, k >= 1.

Original entry on oeis.org

0, 1, 2, 1, 0, 4, 1, 2, 4, 3, 1, 1, 0, 6, 10, 1, 2, 4, 6, 5, 12, 1, 1, 1, 0, 5, 3, 8, 1, 2, 4, 3, 10, 4, 16, 18, 1, 1, 4, 2, 0, 12, 16, 18, 11, 1, 2, 2, 6, 10, 12, 16, 9, 11, 28, 1, 2, 4, 6, 10, 0, 16, 3, 22, 28, 5, 1, 1, 2, 3, 10, 6, 4, 3, 22, 14, 30, 36
Offset: 1

Views

Author

Jianing Song, Jan 12 2019

Keywords

Comments

The maximum element in the k-th column is prime(k) - 1. By Dirichlet's theorem on arithmetic progressions, all divisors of prime(k) - 1 occur infinitely many times in the n-th column.

Examples

			Table begins
     |  k  | 1  2  3  4   5   6   7   8   9  10  ...
   n | p() | 2  3  5  7  11  13  17  19  23  29  ...
  ---+-----+----------------------------------------
   1 |   2 | 0, 2, 4, 3, 10, 12,  8, 18, 11, 28, ...
   2 |   3 | 1, 0, 4, 6,  5,  3, 16, 18, 11, 28, ...
   3 |   5 | 1, 2, 0, 6,  5,  4, 16,  9, 22, 14, ...
   4 |   7 | 1, 1, 4, 0, 10, 12, 16,  3, 22,  7, ...
   5 |  11 | 1, 2, 1, 3,  0, 12, 16,  3, 22, 28, ...
   6 |  13 | 1, 1, 4, 2, 10,  0,  4, 18, 11, 14, ...
   7 |  17 | 1, 2, 4, 6, 10,  6,  0,  9, 22,  4, ...
   8 |  19 | 1, 1, 2, 6, 10, 12,  8,  0, 22, 28, ...
   9 |  23 | 1, 2, 4, 3,  1,  6, 16,  9 , 0,  7, ...
  10 |  29 | 1, 2, 2, 1, 10,  3, 16, 18, 11,  0, ...
  ...
		

Crossrefs

Cf. A250211.
Cf. A014664 (1st row), A062117 (2nd row), A211241 (3rd row), A211243 (4th row), A039701 (2nd column).
Cf. A226367 (lower diagonal), A226295 (upper diagonal).

Programs

  • Maple
    A:= (n, k)-> `if`(n=k, 0, (p-> numtheory[order](p(n), p(k)))(ithprime)):
    seq(seq(A(1+d-k, k), k=1..d), d=1..14);  # Alois P. Heinz, Feb 06 2019
  • Mathematica
    T[n_, k_] := If[n == k, 0, MultiplicativeOrder[Prime[n], Prime[k]]];Table[T[n, k], {n, 1, 10}, {k, 1, 10}] (* Peter Luschny, Jan 20 2019 *)
  • PARI
    T(n,k) = if(n==k, 0, znorder(Mod(prime(n), prime(k))))

Formula

T(n,k) = A250211(prime(n), prime(k)).

A332951 Numbers m such that A245486(k) = m for some k.

Original entry on oeis.org

2, 6, 10, 14, 15, 21, 22, 26, 33, 34, 35, 38, 39, 51, 55, 57, 62, 65, 69, 77, 82, 85, 86, 87, 91, 93, 95, 111, 115, 119, 123, 129, 133, 141, 143, 145, 146, 155, 159, 161, 177, 178, 183, 185, 187, 201, 203, 205, 209, 213, 215, 217, 218, 219, 221, 226, 235, 237, 247
Offset: 1

Views

Author

Jinyuan Wang, Mar 04 2020

Keywords

Comments

Also the union of 2 and squarefree semiprimes which never occur in A332952. See A245486 for more information.

Examples

			218 = 2*109 is in the sequence because A245486(262144) = 218.
		

Crossrefs

A332952 Squarefree semiprimes which never occur in A245486.

Original entry on oeis.org

46, 58, 74, 94, 106, 118, 122, 134, 142, 158, 166, 194, 202, 206, 214, 262, 267, 274, 278, 298, 309, 314, 326, 334, 339, 346, 358, 362
Offset: 1

Views

Author

Jinyuan Wang, Mar 04 2020

Keywords

Comments

Also squarefree semiprimes which never occur in A332951.
This sequence is infinite. It appears that all terms can be divisible by 2 or 3.
If A014664(i) = A014664(j) for some 1 < i < j, then 2*prime(i) is a term. See A245486 for more information.

Examples

			a(2) = 58 because when 2^m - 1 or 2^m + 1 is divisible by 29, it's also divisible by 113. Therefore, there's no integer k such that A245486(k) = A006530(k) * A006530(k+1) = 58.
		

Crossrefs

A352232 a(n) is the smallest positive integer k such that 1 + k * prime(n) is a power of two.

Original entry on oeis.org

1, 3, 1, 93, 315, 15, 13797, 89, 9256395, 1, 1857283155, 25575, 381, 178481, 84973577874915, 4885260612740877, 18900352534538475, 1101298153654301589, 483939977, 7, 6958934353, 58261485282632731311141, 23, 2901803883615, 12550996041863657440561417875
Offset: 2

Views

Author

Alois P. Heinz, Mar 08 2022

Keywords

Comments

All terms are odd.

Crossrefs

Programs

  • Maple
    a:= n-> (p-> (2^numtheory[order](2, p)-1)/p)(ithprime(n)):
    seq(a(n), n=2..28);
  • Python
    from sympy.ntheory import n_order, prime
    def A352232(n): return (2**n_order(2,p:=prime(n))-1)//p # Chai Wah Wu, Mar 09 2022

Formula

a(n) = (2^A014664(n)-1)/prime(n).
A007814(a(n)*prime(n)+1) = A014664(n).
a(n) = 1 <=> n in { A059305 } <=> prime(n) in { A000668 }.
a(n)*prime(n) + 1 in { A000079 }.
a(n)*prime(n) in { A000225 }.

A353171 Irregular triangle read by rows; T(n,k) = 2^k (mod prime(n)), terminating when T(n,k) = 1.

Original entry on oeis.org

-1, 1, 2, -1, -2, 1, 2, -3, 1, 2, 4, -3, 5, -1, -2, -4, 3, -5, 1, 2, 4, -5, 3, 6, -1, -2, -4, 5, -3, -6, 1, 2, 4, 8, -1, -2, -4, -8, 1, 2, 4, 8, -3, -6, 7, -5, 9, -1, -2, -4, -8, 3, 6, -7, 5, -9, 1, 2, 4, 8, -7, 9, -5, -10, 3, 6, -11, 1, 2, 4, 8, -13, 3, 6, 12, -5, -10, 9, -11, 7, 14, -1, -2, -4, -8, 13, -3, -6, -12, 5, 10, -9, 11, -7, -14, 1, 2, 4, 8, -15, 1
Offset: 2

Views

Author

Davis Smith, Apr 28 2022

Keywords

Comments

Although the most significant digits of powers of 2 in base n are generally not periodic (the exception being when n is a power of 2), the least significant digits are. For example, 2 to an even power is congruent to 1 (mod 3) and 2 to an odd power is congruent to -1 (mod 3). This means that one can determine one of the prime factors of a Mersenne number, A000225, using the exponent. If n == 0 (mod 2), then A000225(n) == 0 (mod 3) (is a multiple of 3); if n == 0 (mod 4), then A000225(n) == 0 (mod 5); if n == 0 (mod 3), then A000225(n) == 0 (mod 7), and so on.
This general fact gives a reason for why certain Mersenne numbers are not prime (even with prime exponents). If p is congruent to 0 mod A014664(n) (the length of an n-th row) and prime(n) is less than the A000225(p), then prime(n) is a nontrivial factor of A000225(p).

Examples

			Irregular triangle begins
n/k||  1,  2,  3,  4,  5,  6,  7,  8,  9, 10,  11, 12 ... || Length ||
----------------------------------------------------------------------
2  || -1   1                                              ||      2 ||
3  ||  2, -1, -2,  1                                      ||      4 ||
4  ||  2, -3,  1                                          ||      3 ||
5  ||  2,  4, -3,  5, -1, -2, -4,  3, -5,   1             ||     10 ||
6  ||  2,  4, -5,  3,  6, -1, -2, -4,  5,  -3, -6,  1     ||     12 ||
7  ||  2,  4,  8, -1, -2, -4, -8,  1                      ||      8 ||
		

Crossrefs

Cf. similar sequences: A201908, A201912.

Programs

  • PARI
    A353171_row(n)->my(N=centerlift(Mod(2,prime(n))^1),L=List(N),k=1);while(N!=1,k++;listput(L,N=centerlift(Mod(2,prime(n))^k)));Vec(L)

A353214 a(n) = 2^A007013(4) mod prime(n); the last term of this sequences is when a(n) = 1.

Original entry on oeis.org

0, -1, -2, 2, -4, -2, -8, 2, -5, -2, 4, -2, 5, 2, -11, -20, -22, 6, -23, -21, 2, -3, -16, -25, -31, 40, 19, -29, -2, -2, 2, -49, 19, 68, -56, -23, -59, 45, 29, -2, 62, 63, 27, 54, -2, -22, -46, 28, -85, -2, -29, 17, -113, -4, -128, -65, -46, 20, -51, -98, -64
Offset: 1

Views

Author

Davis Smith, Apr 30 2022

Keywords

Comments

This sequence uses the centered version of mod. The residue system modulo prime(n) is {-1*floor(prime(n)/2)..floor(prime(n)/2)}. This is so that this sequence will encode information about the numbers around 2^A007013(4). If a(n) = k and prime(n) < 2^A007013(4) - k, then 2^A007013(4) - k is not prime (prime(n) is a factor of 2^A007013(4) - k). For example, a(22) = -3, so prime(22) = 79 is a factor of 2^A007013(4) + 3.
The length of this sequence is the lowest value of n such that A014664(n) = A007013(4). This is because for any power of 2, 2^p, if p == 0 (mod A014664(n)), then 2^p == 1 (mod prime(n)) (prime(n) is a factor of A000225(p)). Since A007013(4) is prime, we can apply this to get: If A014664(n) = A007013(4) and prime(n) < A007013(5), then A007013(5) is not prime (prime(n) is a nontrivial factor).
For any n such that prime(n) < 5*(10^51 + 5*10^9), a(n) != 1.

Crossrefs

Cf. A000225, A007013, A014664. Powers of 2 mod primes: A201908, A201912, A353171.

Programs

  • PARI
    A353214(n)=my(CM4=shift(1,127)-1);centerlift(Mod(2,prime(n))^CM4)

Formula

a(n) = 2^(2^127 - 1) mod prime(n).

A376349 Number of isomorphism classes k of groups G of order p*2^n when G contains a unique Sylow p subgroup and the maximal 2^m dividing p-1 is such that 2^m >= 2^n.

Original entry on oeis.org

1, 2, 5, 15, 54, 247, 1684, 21820, 1118964
Offset: 0

Views

Author

Miles Englezou, Sep 19 2024

Keywords

Comments

A Sylow p subgroup is a subgroup of order p^r that necessarily exists when r is a maximal power of p. It is not necessarily unique, but when it is unique it is normal in G.
The condition that G of order p*2^n contains a unique Sylow p subgroup places an upper bound on the number of isomorphism classes of G; it is equivalent to stating that the minimal 2^r such that 2^r == 1 (mod p) be such that 2^r > 2^n. The condition that the maximal 2^m dividing p-1, i.e. for p == 1 (mod 2^m), is such that 2^m >= 2^n ensures a lower bound which is equal to the upper bound. See the Miles Englezou link for a proof.
If we relax the two conditions and just consider an arbitrary odd prime p and the number of isomorphism classes for |G| = p*2^n, it is likely that the set of such numbers is unique to p. Since every odd prime has a minimal 2^r such that 2^r == 1 (mod p) (a consequence of Fermat's little theorem), when 2^r = 2^n for |G| = p*2^n, the number of isomorphism classes will differ from a(n) due to the existence of groups where the Sylow p subgroup is not unique.

Examples

			a(2) = 5 since D_(p*2^2), C_(p*2^2), C_(p*2^1) x C_2, and two semidirect products C_p : C_4 are all the groups of order p*2^2 for p satisfying the two conditions.
Table showing minimal 2^r and maximal 2^m (as defined in the Comments) for some primes:
---------------------------------------------------------------------------
p |      Minimal 2^r == 1 (mod p)       |   Maximal 2^m, p == 1 (mod 2^m)  |
---------------------------------------------------------------------------
2 |             2^0  = 1                |              2^0 = 1             |
3 |             2^2  = 4                |              2^1 = 2             |
5 |             2^4  = 16               |              2^2 = 4             |
7 |             2^3  = 8                |              2^1 = 2             |
11|             2^10 = 1024             |              2^1 = 2             |
13|             2^12 = 4096             |              2^2 = 4             |
17|             2^8  = 256              |              2^4 = 16            |
19|             2^18 = 262144           |              2^1 = 2             |
23|             2^11 = 2048             |              2^1 = 2             |
29|             2^28 = 268435456        |              2^2 = 4             |
31|             2^5  = 32               |              2^1 = 2             |
37|             2^36 = 68719476736      |              2^2 = 4             |
---------------------------------------------------------------------------
Table of primes satisfying 2^r > 2^n, and 2^m >= 2^n:
-------------------------------------------------------------------------------
   2^n   |                          primes                           |   a(n)  |
-------------------------------------------------------------------------------
2^0 = 1  |  all primes                                    = A000040  | 1       |
2^1 = 2  |  all primes > 2                                = A065091  | 2       |
2^2 = 4  |  5, 13, 17, 29, 37, 41, 53, ...                = A002144  | 5       |
2^3 = 8  |  17, 41, 73, 89, 97, 113, 137, ...             = A007519  | 15      |
2^4 = 16 |  17, 97, 113, 193, 241, 257, 337 ...           = A094407  | 54      |
2^5 = 32 |  97, 193, 257, 353, 449, 577, 641, ...         = A133870  | 247     |
2^6 = 64 |  193, 257, 449, 577, 641, 769, 1153, ...       = A142925  | 1684    |
2^7 = 128|  257, 641, 769, 1153, 1409, 2689, 3329, ...    = A208177  | 21820   |
2^8 = 256|  257, 769, 3329, 7937, 9473, 14081, 14593 ...  = A105131  | 1118964 |
-------------------------------------------------------------------------------
		

Crossrefs

Programs

  • GAP
    S:=[];
    for i in [0..8] do
        n:=7681*2^i; # 7681 is an appropriate prime for reproducing up to a(8)
        S:=Concatenation(S,[NrSmallGroups(n)]);
    od;
    Print(S);

Formula

a(n) = A000001(p*2^(n)) for every p satisfying the two conditions mentioned in Comments.
Previous Showing 51-60 of 67 results. Next