A084548 Numbers k that have primitive roots less than k that are nonnegative perfect fifth powers.

2, 37, 53, 59, 67, 81, 83, 107, 139, 149, 163, 169, 173, 179, 197, 227, 243, 254, 257, 269, 274, 278, 283, 289, 293, 298, 317, 326, 343, 346, 347, 349, 353, 361, 373, 379, 389, 394, 398, 419, 443, 446, 449, 463, 466, 467, 487, 509, 514, 523, 538, 547, 557, 563

Offset: 1

Author

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

Keywords

• nonn

Examples

			37 is in the sequence because 32 is a primitive root of 37 and 32 = 2^5.
		

Links

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

Crossrefs

Cf. A000584, A084547, A084549, A084550.

Programs

Mathematica

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

Extensions

Data corrected and extended by Amiram Eldar, Oct 07 2021