User Portlet User Portlet

Discussions
I'm not sure how the primitive root is chosen, but here are some ways to find the smallest primitive root in Mathematica. In Mathematica 10 you can simply do First[PrimitiveRootList[n]] In Mathematica 9 we need to define a new function ...