A240094 Numbers with primitive root 14.
3, 9, 17, 19, 23, 27, 29, 53, 59, 73, 81, 83, 89, 97, 109, 127, 131, 149, 151, 227, 239, 241, 243, 251, 257, 263, 277, 283, 289, 307, 313, 317, 353, 359, 361, 373, 389, 419, 421, 431, 433, 467, 487, 521, 529, 541, 557, 563, 587, 593, 599, 601, 613, 631
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
pr = 14; Select[Range[2, 700], MultiplicativeOrder[pr, #] == EulerPhi[#] &]