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.

Previous Showing 31-40 of 57 results. Next

A061735 Primes with 31 as smallest positive primitive root.

Original entry on oeis.org

5881, 23209, 31391, 39841, 43801, 53089, 53881, 61151, 65831, 88079, 92569, 99961, 101089, 102001, 111409, 135719, 136751, 141961, 150721, 169991, 175081, 196081, 207481, 216841, 224401, 250799, 256369, 271489, 275521, 276721, 285757
Offset: 1

Views

Author

Klaus Brockhaus, May 06 2001

Keywords

Links

Crossrefs

Cf. A001918, A001126, A019357.

Programs

  • Mathematica
    Select[Prime@Range@25000, PrimitiveRoot@# == 31 &] (* Robert G. Wilson v, May 11 2001 *)

A061736 Primes with 33 as smallest positive primitive root.

Original entry on oeis.org

268969, 275263, 316681, 492911, 514081, 536311, 546361, 553561, 579961, 586009, 641761, 674831, 744721, 798481, 827461, 834961, 1021561, 1023409, 1063609, 1083319, 1102921, 1117321, 1122241, 1190951, 1246561, 1270561
Offset: 1

Views

Author

Klaus Brockhaus, May 06 2001

Keywords

Links

Crossrefs

Cf. A001918, A001126, A019359.

Programs

  • Mathematica
    Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 33 & ] ]
Select[ Prime@Range@100000, PrimitiveRoot@# == 33 &] (* Robert G. Wilson v, May 11 2001 *)

Extensions

More terms from Robert G. Wilson v, May 11 2001

A061737 Primes with 34 as smallest positive primitive root.

Original entry on oeis.org

48889, 88321, 92401, 155521, 229681, 233941, 284881, 285121, 289249, 290161, 353929, 379681, 407521, 493291, 529999, 593711, 679561, 696721, 805729, 841801, 890761, 913441, 923471, 977881, 982381, 990889, 1026061, 1045801, 1053361
Offset: 1

Views

Author

Klaus Brockhaus, May 06 2001

Keywords

Links

Crossrefs

A001918, A001126, A019360.

Programs

  • Mathematica
    Select[Prime[Range[83000]],PrimitiveRoot[#]==34&] (* Robert G. Wilson v, May 11 2001 *)

Extensions

More terms from Robert G. Wilson v, May 11 2001

A061738 Primes with 35 as smallest positive primitive root.

Original entry on oeis.org

64609, 93481, 290041, 319057, 334777, 549121, 660097, 663001, 856441, 999553, 1117681, 1217833, 1253761, 1428769, 1647097, 1678249, 1803097, 1834631, 1940041, 2117593, 2219881, 2425991, 2434657, 2765929, 2784937, 2852041, 2980993, 3279431, 3378049, 3405841
Offset: 1

Views

Author

Klaus Brockhaus, May 06 2001

Keywords

Links

Crossrefs

Cf. A001918, A001126, A019361.

Programs

  • Mathematica
    Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 35 & ] ]
(* or *)
Select[ Prime@Range@100000, PrimitiveRoot@# == 35 &] (* Robert G. Wilson v, May 11 2001 *)

Extensions

More terms from Robert G. Wilson v, May 11 2001
a(14)-a(30) from Vincenzo Librandi, Sep 22 2013

A061739 Primes with 37 as smallest positive primitive root.

Original entry on oeis.org

36721, 51361, 63361, 97441, 129529, 132169, 171889, 190537, 201769, 314161, 333791, 343081, 387721, 422231, 493919, 496609, 515761, 529489, 532009, 532561, 557041, 596569, 600601, 618719, 619921, 628319, 629281, 631991, 662281, 663127
Offset: 1

Views

Author

Klaus Brockhaus, May 06 2001

Keywords

Links

Crossrefs

Cf. A001918, A001126, A019362.

Programs

  • Mathematica
    Select[Prime[Range[100000]],PrimitiveRoot[#]==37&] (* Harvey P. Dale, Jul 18 2011 *)

Extensions

More terms from Robert G. Wilson v, May 11 2001

A061740 Primes with 38 as smallest positive primitive root.

Original entry on oeis.org

55441, 138889, 343561, 441169, 469561, 497351, 555361, 560641, 695809, 740041, 803591, 844321, 851041, 857471, 997751, 1016401, 1071841, 1171801, 1180537, 1220041, 1423969, 1425601, 1495561, 1506121, 1714441, 1740649, 1747201, 1795369, 1842481, 1849681, 1858081
Offset: 1

Views

Author

Klaus Brockhaus, May 06 2001

Keywords

Links

Crossrefs

Cf. A001918, A001126, A019363.

Programs

  • Mathematica
    Prime[ Select[ Range[ 100000], PrimitiveRoot[ Prime[ # ] ] == 38 & ] ]
(* or *)
Select[ Prime@Range@100000, PrimitiveRoot@# == 38 &] (* Robert G. Wilson v, May 11 2001 *)

Extensions

More terms from Robert G. Wilson v, May 11 2001
a(21)-a(30) from Vincenzo Librandi, Sep 22 2013

A114658 Primes with 41 as smallest positive primitive root.

Original entry on oeis.org

156601, 185641, 266137, 284231, 375311, 494471, 504001, 510551, 544631, 552241, 583969, 589681, 622561, 637729, 643129, 651913, 683041, 683231, 701399, 738211, 742681, 757201, 811561, 819001, 819719, 832129, 840841, 858841, 872041, 878641, 880871, 887401
Offset: 1

Views

Author

Robert G. Wilson v, Dec 21 2005

Keywords

Links

Crossrefs

Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.

Programs

  • Mathematica
    (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@69800, PrimitiveRoot@# == 41 &]

Extensions

a(31)-a(32) from Robert Price, Nov 18 2023

A114661 Primes with 44 as smallest positive primitive root.

Original entry on oeis.org

71761, 346441, 380881, 1613641, 2842291, 3782521, 3878401, 5355841, 5393761, 5585161, 6199321, 8596561, 9800281, 11403961, 12205321, 13011121, 14437081, 14672341, 14844001, 16254019, 16331641, 16350721, 16523641, 19611481, 20507761, 20749681, 21456481
Offset: 1

Views

Author

Robert G. Wilson v, Dec 21 2005

Keywords

Links

Crossrefs

Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.

Programs

  • Mathematica
    (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@1310000, PrimitiveRoot@# == 44 &]
Select[Prime[Range[1250000]],PrimitiveRoot[#]==44&] (* PrimitiveRoot is now part of Mathematica's core language so there is no longer any need to load NumberTheoryFunctions first *) (* Harvey P. Dale, May 16 2016 *)

Extensions

a(25)-a(27) from Robert Price, Nov 19 2023

A114665 Primes with 48 as smallest positive primitive root.

Original entry on oeis.org

823766851, 1203424471, 1647646771, 2539428211, 4100784871, 4492676371, 5183970931, 6326736151, 6330402751, 8251729531, 8735517211, 10570534171, 11212271071, 12478723111, 13609280431, 16631896051, 18781331911, 18884910871, 20211833071, 20568043471, 20572400551
Offset: 1

Views

Author

Robert G. Wilson v, Dec 21 2005

Keywords

Links

Crossrefs

Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.

Programs

  • Mathematica
    t = {}; Do[ If[ PrimitiveRoot[ Prime@n] == 48, AppendTo[t, n]; Print@Prime@n], {n, 235000000}]; Prime@t
  • PARI
    is(k) = isprime(k) && znprimroot(k)==48; \\ Jinyuan Wang, Apr 09 2025

Extensions

a(7)-a(13) from Ray Chandler, Jan 13 2006
a(14)-a(21) from Robert Price, Nov 25 2023

A114666 Primes with 50 as smallest positive primitive root.

Original entry on oeis.org

23126821, 335139421, 427990531, 709267021, 738459541, 809484061, 1016774221, 1075376821, 1122243739, 1492684411, 1557748501, 1744951261, 2726543821, 2772069301, 3146962261, 3267684421, 3395830621, 3691544011, 3705614221, 3873482341, 4315462621, 4959079861
Offset: 1

Views

Author

Robert G. Wilson v, Dec 21 2005

Keywords

Links

Crossrefs

Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.

Programs

  • Mathematica
    (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t = {}; Do[ If[ PrimitiveRoot[ Prime@n] == 50, AppendTo[t, n]; Print@Prime@n], {n, 235000000}]; Prime@t

Extensions

a(20)-a(22) from Robert Price, Nov 25 2023
Previous Showing 31-40 of 57 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.