OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Tamiru Jarso and Tim Trudgian, Quadratic non-residues that are not primitive roots, Mathematics of Computation, Vol. 88, No. 317 (2019), pp. 1251-1260; arXiv preprint, arXiv:1710.04320 [math.NT], 2017.
MATHEMATICA
Select[Prime[Range[1500]], EulerPhi[#-1]<(#-1)/4&] (* Harvey P. Dale, Oct 27 2018 *)
PROG
(PARI) lista(nn) = forprime(p=2, nn, if (eulerphi(p-1) < (p-1)/4, print1(p, ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Oct 13 2017
STATUS
approved