OFFSET
3,2
COMMENTS
a(A019434(n)) = 0 for n >= 1.
LINKS
Eric Weisstein's World of Mathematics, Primitive Root
PROG
(Magma) lst:=[]; for n in [3..86] do v:=0; for r in [2..n-1] do if not IsSquare(ResidueClassRing(n)! r) and not IsPrimitive(r, n) then v:=r; break; end if; end for; lst:=Append(lst, v); end for; lst;
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, May 24 2014
STATUS
approved