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

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

Author

Artur Jasinski, Jan 29 2007

Keywords

• nonn

Crossrefs

Cf. A001918, A127807, A127808, A127809.

Programs

Mathematica

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