OFFSET
1,1
COMMENTS
Original name was "Primes for which an odd prime is a primitive root".
Primes in A317649. - Robert Israel, Aug 03 2018
REFERENCES
P. Ribenboim, The new book of prime number records, Springer 1996, pp. 22-25.
LINKS
MAPLE
filter:= proc(n) local p;
p:= numtheory:-primroot(n);
p>2 and isprime(p)
end proc:
select(filter, [seq(ithprime(i), i=2..200)]); # Robert Israel, Aug 02 2018
MATHEMATICA
Select[Prime@ Range@ 112, If[# == {}, False, And[PrimeQ@ #, # > 2] &@ #[[1]] ] &@ PrimitiveRootList[#] &] (* Michael De Vlieger, Aug 02 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from James A. Sellers, Apr 22 2000
Definition corrected by Robert Israel, Aug 02 2018
STATUS
approved