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,1

Links

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

Mathematica

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

Crossrefs

Cf. A001015, A084547, A084548, A084550.

Sequence in context: A303445 A158110 A117626 * A142251 A125633 A089662

Adjacent sequences: A084546 A084547 A084548 * A084550 A084551 A084552

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