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

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A000584, A084547, A084549, A084550.

Sequence in context: A107180 A162577 A199980 * A063999 A062606 A282639

Adjacent sequences: A084545 A084546 A084547 * A084549 A084550 A084551

Keyword

nonn

Author

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

Extensions

Data corrected and extended by Amiram Eldar, Oct 07 2021

Status

approved