OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Peter J. Cameron and D. A. Preece, Primitive lambda-roots, 2014.
T. W. Müller and J.-C. Schlage-Puchta, On the number of primitive lambda-roots, Acta Arithmetica, Vol. 115 (2004), pp. 217-223.
MATHEMATICA
q[n_] := Count[(t = Table[MultiplicativeOrder[k, n], {k, Select[Range[n], CoprimeQ[n, #] &]}]), Max[t]] != EulerPhi[EulerPhi[n]]; Select[Range[300], q] (* Amiram Eldar, Oct 12 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Feb 23 2018
STATUS
approved