OFFSET
1,5
REFERENCES
Roger Osborn, Tables of All Primitive Roots of Odd Primes Less Than 1000, Univ. Texas Press, Austin, TX, 1961, pp. 69-70.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := Count[PrimitiveRootList[(p = Prime[n+1])], _?(# <= (p-1)/2 &)]; Array[a, 100]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Apr 20 2007
EXTENSIONS
More terms from Don Reble, Apr 20 2007
STATUS
approved