OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
q[n_] := Count[(t = Table[MultiplicativeOrder[k, n], {k, Select[Range[n], CoprimeQ[n, #] &]}]), Max[t]] == EulerPhi[EulerPhi[n]]; Select[Range[200], PrimeNu[#] > 1 && q[#] &] (* Amiram Eldar, Oct 12 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Feb 24 2018
STATUS
approved