login
A048976
Primes whose least primitive root is an odd prime.
2
7, 17, 23, 31, 43, 47, 71, 73, 79, 89, 97, 103, 113, 127, 137, 157, 167, 191, 193, 199, 223, 233, 239, 241, 257, 263, 277, 281, 283, 307, 311, 331, 353, 359, 383, 397, 401, 431, 433, 449, 457, 463, 479, 487, 499, 503, 521, 569, 571, 577, 593, 599, 601, 607
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.
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
Sequence in context: A308816 A254678 A165353 * A088546 A265816 A246717
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from James A. Sellers, Apr 22 2000
Definition corrected by Robert Israel, Aug 02 2018
STATUS
approved