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.

A240106 Numbers with primitive root 19.

Original entry on oeis.org

2, 4, 7, 11, 13, 14, 22, 23, 26, 29, 37, 41, 43, 46, 47, 53, 58, 74, 82, 83, 86, 89, 94, 106, 113, 121, 139, 163, 166, 173, 178, 191, 193, 226, 239, 242, 251, 257, 263, 269, 278, 281, 293, 311, 317, 326, 337, 346, 347, 359, 367, 382, 386, 401, 419, 433, 443
Offset: 1

Views

Author

Vincenzo Librandi, Apr 01 2014

Keywords

Links

Crossrefs

Cf. numbers with positive primitive root r: A167791 (r=2), A167792 (r=3), A167793 (r=5), A167794 (r=6), A167795 (r=7), A167796 (r=8), A167797 (r=10), A240028 (r=11), A240030 (r=12), A240032 (r=13), A240094 (r=14), A240096 (r=15), A240100 (r=17), A240103 (r=18).
Cf. numbers with negative primitive root r: A167798 (r=-2), A167799 (r=-3), A167800 (r=-4), A167801 (r=-5), A167802 (r=-6), A167803 (r=-7), A167804 (r=-8), A167805 (r=-9), A167806 (r=-10), A240029 (r=-11), A240031 (r=-12), A240093 (r=-13), A240095 (r=-14), A240097 (r=-15), A240100 (r=-17), A240102 (r=-18), A240104 (r=-19).

Programs

  • Mathematica
    pr = 19; Select[Range[2, 500], MultiplicativeOrder[pr, #] == EulerPhi[#] &]

A240107 Numbers with primitive root -20.

Original entry on oeis.org

11, 13, 17, 31, 37, 53, 59, 73, 79, 113, 121, 131, 137, 139, 157, 169, 173, 179, 191, 199, 211, 233, 239, 257, 271, 277, 289, 293, 313, 317, 331, 337, 353, 359, 379, 397, 419, 431, 433, 439, 479, 499, 557, 593, 599, 613, 631, 653, 659, 673, 677, 719, 751
Offset: 1

Views

Author

Vincenzo Librandi, Apr 01 2014

Keywords

Links

Crossrefs

Cf. numbers with positive primitive root r: A167791 (r=2), A167792 (r=3), A167793 (r=5), A167794 (r=6), A167795 (r=7), A167796 (r=8), A167797 (r=10), A240028 (r=11), A240030 (r=12), A240032 (r=13), A240094 (r=14), A240096 (r=15), A240100 (r=17), A240103 (r=18), A240106 (r=19), A240108 (r=20).
Cf. numbers with negative primitive root r: A167798 (r=-2), A167799 (r=-3), A167800 (r=-4), A167801 (r=-5), A167802 (r=-6), A167803 (r=-7), A167804 (r=-8), A167805 (r=-9), A167806 (r=-10), A240029 (r=-11), A240031 (r=-12), A240093 (r=-13), A240095 (r=-14), A240097 (r=-15), A240100 (r=-17), A240102 (r=-18), A240104 (r=-19).

Programs

  • Mathematica
    pr = -20; Select[Range[2, 800], MultiplicativeOrder[pr, #] == EulerPhi[#] &]

A240108 Numbers with primitive root 20.

Original entry on oeis.org

3, 9, 13, 17, 23, 27, 37, 43, 47, 53, 67, 73, 81, 83, 103, 107, 113, 137, 157, 163, 167, 169, 173, 223, 227, 233, 243, 257, 263, 277, 283, 289, 293, 313, 317, 337, 347, 353, 367, 383, 397, 433, 443, 463, 467, 487, 503, 529, 547, 557, 563, 587, 593, 607
Offset: 1

Views

Author

Vincenzo Librandi, Apr 01 2014

Keywords

Links

Crossrefs

Cf. numbers with positive primitive root r: A167791 (r=2), A167792 (r=3), A167793 (r=5), A167794 (r=6), A167795 (r=7), A167796 (r=8), A167797 (r=10), A240028 (r=11), A240030 (r=12), A240032 (r=13), A240094 (r=14), A240096 (r=15), A240100 (r=17), A240103 (r=18), A240106 (r=19).
Cf. numbers with negative primitive root r: A167798 (r=-2), A167799 (r=-3), A167800 (r=-4), A167801 (r=-5), A167802 (r=-6), A167803 (r=-7), A167804 (r=-8), A167805 (r=-9), A167806 (r=-10), A240029 (r=-11), A240031 (r=-12), A240093 (r=-13), A240095 (r=-14), A240097 (r=-15), A240100 (r=-17), A240102 (r=-18), A240104 (r=-19), A240107 (r=-20).

Programs

  • Mathematica
    pr = 20; Select[Range[2, 700], MultiplicativeOrder[pr, #] == EulerPhi[#] &]
Join[{3,9,13,17},Select[Range[610],MemberQ[PrimitiveRootList[#],20]&]] (* Harvey P. Dale, Jul 17 2025 *)
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.