login
A084549
Numbers k that have primitive roots less than k that are nonnegative perfect seventh powers.
3
2, 131, 139, 149, 163, 169, 173, 179, 181, 227, 243, 269, 293, 317, 347, 349, 361, 373, 389, 419, 443, 461, 467, 509, 523, 541, 557, 563, 587, 613, 619, 625, 653, 661, 677, 709, 729, 773, 787, 797, 821, 829, 853, 859, 877, 907, 941, 947, 1019, 1061, 1091, 1109
OFFSET
1,1
LINKS
MATHEMATICA
q[n_] := Intersection[PrimitiveRootList[n], Range[Floor@Surd[n, 7]]^7] != {}; Select[Range[1000], q] (* Amiram Eldar, Oct 07 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hauke Worpel (hw1(AT)email.com), May 30 2003
EXTENSIONS
a(1) inserted and more terms added by Amiram Eldar, Oct 07 2021
STATUS
approved