A084547 -id:A084547 - cp's OEIS frontend

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

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

nonn

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

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

Cf. A000584, A084547, A084549, A084550.

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

Data corrected and extended by Amiram Eldar, Oct 07 2021

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

Original entry on oeis.org

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

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

nonn

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

Cf. A001015, A084547, A084548, A084550.

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

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

cp's OEIS Frontend

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

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions