OFFSET
2,2
COMMENTS
Same as A046145, except for taking -1 instead of 0. - Joerg Arndt, Jan 16 2015
MAPLE
subs(FAIL=-1, [seq(numtheory:-primroot(n), n=2..1000)]); # Robert Israel, Jan 11 2015
MATHEMATICA
lst = {}; f[n_] := PrimitiveRoot[n]; Do[If[IntegerQ@f[n], g = f[n], g = -1]; AppendTo[lst, g], {n, 2, 73}]; Prepend[lst, -1]
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 23 2010
EXTENSIONS
Name changed by Arkadiusz Wesolowski, Jul 19 2012
Offset changed and ambiguous term a(0) removed by Arkadiusz Wesolowski, Jul 20 2012
a(1) removed by Joerg Arndt, Jan 11 2015
STATUS
approved