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,1

Links

Table of n, a(n) for n=2..100.

Mathematica

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

Crossrefs

Cf. A001918, A127807, A127808, A127809.

Sequence in context: A091382 A127808 A127809 * A001918 A268616 A331506

Adjacent sequences: A127807 A127808 A127809 * A127811 A127812 A127813

Keyword

nonn

Author

Artur Jasinski, Jan 29 2007

Status

approved