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

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])^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 *)

Crossrefs

Cf. A001918, A127807, A127808, A127810.

Sequence in context: A255911 A091382 A127808 * A127810 A001918 A268616

Adjacent sequences: A127806 A127807 A127808 * A127810 A127811 A127812

Keyword

nonn

Author

Artur Jasinski, Jan 29 2007

Status

approved