A240095 Numbers with primitive root -14.
11, 17, 29, 31, 43, 47, 53, 73, 89, 97, 107, 109, 121, 149, 163, 167, 179, 199, 241, 257, 271, 277, 289, 311, 313, 317, 331, 347, 353, 367, 373, 383, 389, 421, 433, 443, 479, 499, 503, 521, 541, 557, 571, 593, 601, 607, 613, 647, 653, 683, 701, 709
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
pr = -14; Select[Range[2, 800], MultiplicativeOrder[pr, #] == EulerPhi[#] &]