A084549 Numbers k that have primitive roots less than k that are nonnegative perfect seventh powers.

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

Author

Hauke Worpel (hw1(AT)email.com), May 30 2003

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001015, A084547, A084548, A084550.

Programs

Mathematica

q[n_] := Intersection[PrimitiveRootList[n], Range[Floor@Surd[n, 7]]^7] != {}; Select[Range[1000], q] (* Amiram Eldar, Oct 07 2021 *)

Extensions

a(1) inserted and more terms added by Amiram Eldar, Oct 07 2021