|
|
A118818
|
|
Primes p for which there are more primitive roots below p/2 than above p/2.
|
|
5
|
|
|
223, 379, 463, 631, 691, 883, 907, 1051, 1423, 1447, 1543, 1723, 1747, 1783, 1987, 2143, 2179, 2347, 2467, 2591, 2767, 3259, 3307, 3511, 3631, 3691, 3739, 3823, 3907, 4219, 4447, 4507, 4519, 4639, 4987, 5023, 5107, 5119, 5347, 5683, 5923
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
223 is a term because it has 38 primitive roots below 111.5, but 34 above 111.5.
|
|
MATHEMATICA
|
q[n_] := PrimeQ[n] && Length[(p = PrimitiveRootList[n])] > 2*Count[p, _?(# > n/2 &)]; Select[4*Range[0, 1500] + 3, q] (* Amiram Eldar, Oct 11 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|