OFFSET
2,1
MATHEMATICA
Table[PrimitiveRoot[(Prime[n])^3], {n, 2, 100}]
PrimitiveRoot[Prime[Range[2, 100]]^3] (* Harvey P. Dale, May 07 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 29 2007
STATUS
approved