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-10 of 15 results. Next

A240030 Numbers with primitive root 12.

Original entry on oeis.org

5, 7, 17, 25, 31, 41, 43, 49, 53, 67, 101, 103, 113, 125, 127, 137, 139, 149, 151, 163, 173, 197, 223, 257, 269, 281, 283, 289, 293, 317, 343, 353, 367, 379, 389, 401, 449, 461, 509, 523, 547, 557, 569, 571, 593, 607, 617, 619, 625, 631, 641, 653, 691
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).
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).

Programs

  • Mathematica
    pr = 12; Select[Range[2, 700], MultiplicativeOrder[pr, #] == EulerPhi[#] &]

A240032 Numbers with primitive root 13.

Original entry on oeis.org

2, 5, 10, 11, 19, 22, 25, 31, 37, 38, 41, 47, 50, 59, 62, 67, 71, 73, 74, 82, 83, 89, 94, 97, 109, 118, 121, 125, 134, 137, 142, 146, 149, 151, 166, 167, 178, 194, 197, 218, 227, 239, 241, 242, 250, 274, 281, 293, 298, 302, 307, 317, 334, 349, 353, 359, 361
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).
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).

Programs

  • Mathematica
    pr = 13; Select[Range[2, 600], MultiplicativeOrder[pr, #] == EulerPhi[#] &]
Join[{2,5,10,11},Select[Range[400],MemberQ[PrimitiveRootList[#],13]&]] (* Harvey P. Dale, Apr 19 2023 *)

A240093 Numbers with primitive root -13.

Original entry on oeis.org

2, 3, 4, 5, 6, 9, 10, 18, 23, 25, 27, 37, 41, 43, 46, 50, 54, 73, 74, 79, 81, 82, 86, 89, 97, 107, 109, 125, 127, 131, 137, 139, 146, 149, 158, 162, 178, 179, 191, 194, 197, 199, 214, 218, 241, 243, 250, 251, 254, 262, 263, 274, 278, 281, 283, 293, 298, 317
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).
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).

Programs

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

A240094 Numbers with primitive root 14.

Original entry on oeis.org

3, 9, 17, 19, 23, 27, 29, 53, 59, 73, 81, 83, 89, 97, 109, 127, 131, 149, 151, 227, 239, 241, 243, 251, 257, 263, 277, 283, 289, 307, 313, 317, 353, 359, 361, 373, 389, 419, 421, 431, 433, 467, 487, 521, 529, 541, 557, 563, 587, 593, 599, 601, 613, 631
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).
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).

Programs

  • Mathematica
    pr = 14; Select[Range[2, 700], MultiplicativeOrder[pr, #] == EulerPhi[#] &]

A240095 Numbers with primitive root -14.

Original entry on oeis.org

11, 17, 29, 31, 43, 47, 53, 73, 89, 97, 107, 109, 121, 149, 163, 167, 179, 199, 241, 257, 271, 277, 289, 311, 313, 317, 331, 347, 353, 367, 373, 383, 389, 421, 433, 443, 479, 499, 503, 521, 541, 557, 571, 593, 601, 607, 613, 647, 653, 683, 701, 709
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).
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).

Programs

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

A240096 Numbers with primitive root 15.

Original entry on oeis.org

2, 4, 13, 19, 23, 26, 29, 37, 38, 41, 46, 47, 58, 73, 74, 82, 83, 89, 94, 97, 101, 107, 139, 146, 149, 151, 157, 166, 167, 169, 178, 193, 194, 199, 202, 214, 227, 263, 269, 271, 278, 281, 298, 302, 313, 314, 334, 337, 338, 347, 361, 373, 379, 383, 386, 389
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).
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).

Programs

  • Mathematica
    pr = 15; Select[Range[2, 500], MultiplicativeOrder[pr, #] == EulerPhi[#] &]
Join[{2,4,13},Select[Range[2,400],PrimitiveRoot[#,15]==15&]] (* Harvey P. Dale, Jun 30 2018 *)

A240097 Numbers with primitive root -15.

Original entry on oeis.org

2, 11, 13, 22, 26, 29, 37, 41, 43, 58, 59, 71, 73, 74, 82, 86, 89, 97, 101, 103, 118, 121, 127, 131, 142, 146, 149, 157, 163, 169, 178, 179, 191, 193, 194, 202, 206, 239, 242, 251, 254, 262, 269, 281, 298, 307, 313, 314, 326, 337, 338, 358, 359, 373, 382
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).
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).

Programs

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

A240100 Numbers with primitive root -17.

Original entry on oeis.org

2, 4, 5, 10, 19, 25, 37, 38, 41, 43, 47, 50, 59, 61, 67, 74, 82, 83, 86, 94, 97, 103, 113, 118, 122, 125, 127, 134, 151, 166, 173, 179, 191, 193, 194, 197, 206, 226, 233, 239, 250, 251, 254, 263, 269, 271, 277, 302, 313, 317, 331, 346, 358, 359, 361, 382
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), A240101 (r=17).
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).

Programs

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

A240102 Numbers with primitive root -18.

Original entry on oeis.org

5, 7, 23, 29, 31, 37, 47, 53, 61, 71, 101, 103, 109, 127, 149, 151, 157, 167, 173, 181, 191, 197, 223, 239, 263, 269, 271, 277, 293, 317, 349, 359, 367, 383, 389, 397, 421, 461, 479, 503, 509, 529, 541, 557, 607, 613, 647, 653, 661, 677, 701, 719, 733
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), A240101 (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).

Programs

  • Mathematica
    pr = -18; Select[Range[2, 800], MultiplicativeOrder[pr, #] == EulerPhi[#] &]
  • PARI
    is(n)=if(gcd(n,6)>1, return(0)); my(p=eulerphi(n)); znorder(Mod(-18,n),p)==p \\ Charles R Greathouse IV, Nov 26 2014

A240103 Numbers with primitive root 18.

Original entry on oeis.org

5, 11, 29, 37, 43, 53, 59, 61, 67, 83, 101, 107, 109, 121, 139, 149, 157, 163, 173, 179, 181, 197, 227, 251, 269, 277, 283, 293, 317, 347, 349, 379, 389, 397, 419, 421, 461, 467, 491, 509, 523, 541, 547, 557, 563, 571, 587, 613, 619, 653, 659, 661, 677
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), A240101 (r=17).
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).

Programs

  • Mathematica
    pr = 18; Select[Range[2, 800], MultiplicativeOrder[pr, #] == EulerPhi[#] &]
  • PARI
    is(n)=if(gcd(n, 6)>1, return(0)); my(p=eulerphi(n)); znorder(Mod(18, n), p)==p \\ Charles R Greathouse IV, Nov 26 2014
Showing 1-10 of 15 results. Next

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

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