cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A084547 Numbers n that have primitive roots less than n that are nonnegative perfect cubes.

Original entry on oeis.org

2, 11, 25, 29, 34, 50, 53, 58, 59, 83, 89, 101, 106, 107, 113, 121, 125, 131, 137, 149, 166, 167, 173, 178, 179, 197, 202, 214, 226, 227, 233, 250, 251, 257, 263, 269, 274, 281, 289, 293, 298, 317, 334, 346, 347, 353, 358, 359
Offset: 1

Views

Author

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

Keywords

Examples

			89 is in the sequence because 27 is a primitive root of 89 and 27 is three cubed.

Links

Crossrefs

Cf. A000578, A084548, A084549, A084550.

Programs

  • Mathematica
    q[n_] := Intersection[PrimitiveRootList[n], Range[Floor@Surd[n, 3]]^3] != {}; Select[Range[360], q] (* Amiram Eldar, Sep 25 2021 *)

Extensions

a(1) inserted by Amiram Eldar, Sep 25 2021

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

Original entry on oeis.org

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

Views

Author

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

Keywords

Examples

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

Links

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

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

Views

Author

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

Keywords

Links

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
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.