A127807 -id:A127807 - cp's OEIS frontend

A055578 "Non-generous primes": primes p whose least positive primitive root is not a primitive root of p^2.

2, 40487, 6692367337

Offset: 1

Bernard Leak (bernard(AT)brenda-arkle.demon.co.uk), Aug 24 2000

For r a primitive root of a prime p, r + qp is a primitive root of p: but r + qp is also a primitive root of p^2, except for q in some unique residue class modulo p. In the exceptional case, r + qp has order p-1 modulo p^2 (Burton, section 8.3).
No other terms below 10^12 (Paszkiewicz, 2009).
Each term p is a Wieferich prime to base A046145(p). For example, a(2) and a(3) are base-5 Wieferich (see A123692). - Jeppe Stig Nielsen, Mar 06 2020

David Burton, Elementary Number Theory, Allyn and Bacon, Boston, 1976, first edition (cf. Section 8.3).

Joerg Arndt, Matters Computational (The Fxtbook), section 39.7.2, p.780.
Stephen Glasby, Three questions about the density of certain primes, Posting to Number Theory List (NMBRTHRY(AT)LISTSERV.NODAK.EDU), Apr 22, 2001.
Bryce Kerr, Kevin McGown, Tim Trudgian, The least primitive root modulo p^2, arXiv:1908.11497 [math.NT], 2019.
A. Paszkiewicz, A new prime for which the least primitive root (mod p) and the least primitive root (mod p^2) are not equal, Math. Comp. 78 (2009), 1193-1195.

Cf. A060503, A060504.

Select[Prime@Range[7!], ! PrimitiveRoot[#] == PrimitiveRoot[#^2] &] (* Arkadiusz Wesolowski, Sep 06 2012 *)

Prime A000040(n) is in this sequence iff A001918(n)^(A000040(n)-1) == 1 (mod A000040(n)^2).

Prime A000040(n) is in this sequence iff A001918(n) differs from A127807(n).

a(3) from Stephen Glasby (Stephen.Glasby(AT)cwu.EDU), Apr 22 2001

Edited by Max Alekseyev, Nov 10 2011

A127808 Least positive primitive root of (n-th prime)^3.

Original entry on oeis.org

2, 2, 3, 2, 2, 3, 2, 5, 2, 3, 2, 6, 3, 5, 2, 2, 2, 2, 7, 5, 3, 2, 3, 5, 2, 5, 2, 6, 3, 3, 2, 3, 2, 2, 6, 5, 2, 5, 2, 2, 2, 19, 5, 2, 3, 2, 3, 2, 6, 3, 7, 7, 6, 3, 5, 2, 6, 5, 3, 3, 2, 5, 17, 10, 2, 3, 10, 2, 2, 3, 7, 6, 2, 2, 5, 2, 5, 3, 21, 2, 2, 7, 5, 15, 2, 3, 13, 2, 3, 2, 13, 3, 2, 7, 5, 2, 3, 2, 2

Offset: 2

Artur Jasinski, Jan 29 2007

nonn

Cf. A001918, A127807, A127809, A127810.

Table[PrimitiveRoot[(Prime[n])^3], {n, 2, 100}]
PrimitiveRoot[Prime[Range[2,100]]^3] (* Harvey P. Dale, May 07 2013 *)

A127809 Least positive primitive root of (n-th prime)^4.

Original entry on oeis.org

2, 2, 3, 2, 2, 3, 2, 5, 2, 3, 2, 6, 3, 5, 2, 2, 2, 2, 7, 5, 3, 2, 3, 5, 2, 5, 2, 6, 3, 3, 2, 3, 2, 2, 6, 5, 2, 5, 2, 2, 2, 19, 5, 2, 3, 2, 3, 2, 6, 3, 7, 7, 6, 3, 5, 2, 6, 5, 3, 3, 2, 5, 17, 10, 2, 3, 10, 2, 2, 3, 7, 6, 2, 2, 5, 2, 5, 3, 21, 2, 2, 7, 5, 15, 2, 3, 13, 2, 3, 2, 13, 3, 2, 7, 5, 2, 3, 2, 2

Offset: 2

Artur Jasinski, Jan 29 2007

nonn

Cf. A001918, A127807, A127808, A127810.

<< NumberTheory`NumberTheoryFunctions` Table[PrimitiveRoot[(Prime[n])^4], {n, 2, 100}]
Table[PrimitiveRoot[Prime[n]^4],{n,2,100}] (* Primitive Root is now part of the core functions in Mathematica *) (* Harvey P. Dale, Oct 11 2017 *)

A127810 Least positive primitive root of (n-th prime)^5.

Original entry on oeis.org

2, 2, 3, 2, 2, 3, 2, 5, 2, 3, 2, 6, 3, 5, 2, 2, 2, 2, 7, 5, 3, 2, 3, 5, 2, 5, 2, 6, 3, 3, 2, 3, 2, 2, 6, 5, 2, 5, 2, 2, 2, 19, 5, 2, 3, 2, 3, 2, 6, 3, 7, 7, 6, 3, 5, 2, 6, 5, 3, 3, 2, 5, 17, 10, 2, 3, 10, 2, 2, 3, 7, 6, 2, 2, 5, 2, 5, 3, 21, 2, 2, 7, 5, 15, 2, 3, 13, 2, 3, 2, 13, 3, 2, 7, 5, 2, 3, 2, 2

Offset: 2

Artur Jasinski, Jan 29 2007

nonn

Cf. A001918, A127807, A127808, A127809.

<< NumberTheory`NumberTheoryFunctions` Table[PrimitiveRoot[(Prime[n])^5], {n, 2, 100}]

cp's OEIS Frontend

A055578 "Non-generous primes": primes p whose least positive primitive root is not a primitive root of p^2.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A127808 Least positive primitive root of (n-th prime)^3.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

A127809 Least positive primitive root of (n-th prime)^4.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

A127810 Least positive primitive root of (n-th prime)^5.

Views

Author

Keywords

Crossrefs

Programs

Mathematica