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

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

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

Crossrefs

Cf. A001918, A127807, A127809, A127810.

Sequence in context: A187128 A255911 A091382 * A127809 A127810 A001918

Adjacent sequences: A127805 A127806 A127807 * A127809 A127810 A127811

Keyword

nonn

Author

Artur Jasinski, Jan 29 2007

Status

approved