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 21-30 of 32 results. Next

A114674 Primes with 58 as smallest positive primitive root.

Original entry on oeis.org

336361, 863521, 978853, 1225849, 1244591, 2116921, 2238721, 2361241, 2659801, 3954889, 4326841, 5781169, 6636961, 7699561, 8649001, 9806281, 9808681, 9867841, 10165681, 10550401, 10906921, 11426449, 12252769, 13421521, 13778209, 15147001, 15229561, 15817201
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@980000, PrimitiveRoot@# == 58 &]

Extensions

a(26)-a(28) from Robert Price, Nov 20 2023

A114675 Primes with 59 as smallest positive primitive root.

Original entry on oeis.org

712321, 1064281, 2957761, 3190151, 3968761, 4501201, 4630081, 5154551, 5198449, 5802073, 5861881, 5873111, 6272401, 6439681, 6813409, 7168561, 7177921, 7552801, 8049889, 8054281, 9432361, 10333801, 10369129, 11069881, 11315929, 11652481, 11935871, 12740809
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@767000, PrimitiveRoot@# == 59 &]

Extensions

a(26)-a(28) from Robert Price, Nov 20 2023

A114676 Primes with 60 as smallest positive primitive root.

Original entry on oeis.org

697591, 1565939311, 2201381953, 5761774591, 6206852191, 6458249953, 8920186111, 10354295953, 10852325191, 11460087211, 12045861031, 14021799793, 16585400833, 16946270251, 18414492097, 18500061271, 18677081011, 18993773839, 19016413417, 19211878841, 19811337631
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
    Select[Prime[Range[5183*10^5]],PrimitiveRoot[#,2]==60&] (* The program generates the first 10 terms of the sequence. *) (* Harvey P. Dale, Feb 26 2025 *)
  • PARI
    is(k) = isprime(k) && znprimroot(k)==60; \\ Jinyuan Wang, Apr 09 2025

Extensions

a(4)-a(5) from Tomás Oliveira e Silva (tos(AT)det.ua.pt), Jan 05 2006
a(6)-a(10) from Ray Chandler, Jan 13 2006
a(11)-a(21) from Robert Price, Nov 25 2023

A114677 Primes with 61 as smallest positive primitive root.

Original entry on oeis.org

1171921, 1209121, 1881961, 2086681, 2264161, 5028241, 5385361, 5976961, 7024081, 7097809, 8182441, 8739721, 8752129, 8833969, 8847451, 9140569, 10222081, 10328111, 10434649, 11787481, 11923921, 12098761, 13364569, 14408881, 14523601, 15599471, 16295449
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@942000, PrimitiveRoot@# == 61 &]

Extensions

a(24)-a(27) from Robert Price, Nov 20 2023

A114678 Primes with 62 as smallest positive primitive root.

Original entry on oeis.org

658681, 946969, 4026961, 8639401, 9312601, 9435721, 13189201, 15539611, 16456441, 16784041, 17080561, 18478321, 22532641, 24024001, 26760889, 27132811, 27747721, 28516489, 28830649, 29406001, 29599441, 30034489, 30945121, 31040689, 31926049, 32722561
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
    Select[ Prime@Range@1920000, PrimitiveRoot@# == 62 &]

Extensions

a(23)-a(26) from Robert Price, Nov 20 2023

A114679 Primes with 63 as smallest positive primitive root.

Original entry on oeis.org

102896401, 149351401, 208844401, 214602961, 325778281, 452903881, 462268561, 472777801, 472797961, 479354041, 482278081, 668800081, 722841991, 732103441, 795906031, 799450081, 809731081, 945273991, 999592201, 1021858231, 1127925031, 1217252191, 1290858721
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] == 63, AppendTo[t, n]; Print@Prime@n], {n, 57100000}]; Prime@t

Extensions

a(21)-a(23) from Robert Price, Nov 26 2023

A114680 Primes with 65 as smallest positive primitive root.

Original entry on oeis.org

11089681, 12780601, 12937417, 13359361, 14880721, 21843361, 26686081, 36474001, 43208857, 61214471, 62130097, 64723849, 65049889, 68478481, 73237081, 73610881, 74207281, 78489049, 88689001, 95037073, 99589561, 99705769, 100127281, 102215233, 103073041
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] == 65, AppendTo[t, n]; Print@Prime@n], {n, 5890000}]; Prime@t
Select[Prime[Range[574*10^4]],PrimitiveRoot[#,1]==65&] (* Harvey P. Dale, Jul 30 2019 *)

Extensions

a(22) and beyond from Robert Price, Nov 20 2023
a(25) corrected by David Radcliffe, Aug 04 2025

A114681 Primes with 66 as smallest positive primitive root.

Original entry on oeis.org

27955201, 30822481, 33776401, 80724841, 111549481, 115129561, 164062081, 260568421, 288955801, 304100161, 348601681, 348990769, 411542401, 446320729, 464872591, 470475121, 473949121, 514613581, 541760881, 544552681, 552269761, 637927201, 652107121, 669037321
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] == 66, AppendTo[t, n]; Print@Prime@n], {n, 29000000}]; Prime@t

Extensions

a(22)-a(24) from Robert Price, Nov 26 2023

A114682 Primes with 67 as smallest positive primitive root.

Original entry on oeis.org

3384481, 4280329, 4555151, 5334313, 6915191, 7265281, 7586401, 7761121, 9240001, 10483201, 10859689, 11081641, 11314801, 11682889, 12002761, 12426481, 12493321, 14000281, 15210001, 18410831, 19587481, 21475609, 21573191, 21834961, 23025601, 24024289
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@1450000, PrimitiveRoot@# == 67 &]
Select[Prime[Range[1450000]],PrimitiveRoot[#]==67&] (* Harvey P. Dale, Feb 22 2012 *)
  • PARI
    /* The following assumes that znprimroot() returns the smallest primitive root */ is_A114682(n)={ znprimroot(n)==67 }  \\ M. F. Hasler, Feb 22 2012

Formula

Equals { p in A000040 | A001918(p) = 67 }. - M. F. Hasler, Feb 22 2012

Extensions

a(24) and beyond from Robert Price, Nov 20 2023

A114683 Primes with 68 as smallest positive primitive root.

Original entry on oeis.org

3733801, 35507761, 35902441, 43734601, 52704961, 57882691, 60170881, 66434341, 88016041, 102019681, 111554041, 119630281, 145836601, 153955201, 167521201, 170963521, 183145561, 206125921, 210210841, 210912601, 217455001, 245357641, 255934561, 261094201
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] == 68, AppendTo[t, n]; Print@Prime@n], {n, 13500000}]; Prime@t

Extensions

a(23)-a(24) from Robert Price, Nov 26 2023
Previous Showing 21-30 of 32 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.