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 11-20 of 33 results. Next

A237052 Numbers n such that (49^n + 1)/50 is prime.

Original entry on oeis.org

7, 19, 37, 83, 1481, 12527, 20149
Offset: 1

Views

Author

Robert Price, Feb 02 2014

Keywords

Comments

All terms are primes.
a(8) > 10^5.

Crossrefs

Programs

  • Mathematica
    Do[ p=Prime[n]; If[ PrimeQ[ (49^p + 1)/50 ], Print[p] ], {n, 1, 9592} ]
  • PARI
    is(n)=ispseudoprime((49^n+1)/50) \\ Charles R Greathouse IV, Jun 13 2017

Extensions

Typo in description corrected by Ray Chandler, Feb 20 2017

A309533 Numbers k such that (144^k + 1)/145 is prime.

Original entry on oeis.org

23, 41, 317, 3371, 45259, 119671
Offset: 1

Views

Author

Paul Bourdelais, Aug 06 2019

Keywords

Comments

The corresponding primes are terms of A059055. - Bernard Schott, Aug 09 2019

Crossrefs

Programs

  • Mathematica
    Do[p=Prime[n]; If[PrimeQ[(144^p + 1)/145], Print[p]], {n, 1, 1000000}]
  • PARI
    is(n)=ispseudoprime((144^n+1)/145)

A236167 Numbers k such that (47^k + 1)/48 is prime.

Original entry on oeis.org

5, 19, 23, 79, 1783, 7681
Offset: 1

Views

Author

Robert Price, Jan 19 2014

Keywords

Comments

a(7) > 10^5.

Crossrefs

Programs

  • Mathematica
    Do[ p=Prime[n]; If[ PrimeQ[ (47^p + 1)/48 ], Print[p] ], {n, 1, 9592} ]
  • PARI
    is(n)=ispseudoprime((47^n+1)/48) \\ Charles R Greathouse IV, Jun 06 2017
    
  • Python
    from sympy import isprime
    def afind(startat=0, limit=10**9):
      pow47 = 47**startat
      for k in range(startat, limit+1):
        q, r = divmod(pow47+1, 48)
        if r == 0 and isprime(q): print(k, end=", ")
        pow47 *= 47
    afind(limit=300) # Michael S. Branicky, May 19 2021

A185230 Numbers n such that (33^n + 1)/34 is prime.

Original entry on oeis.org

5, 67, 157, 12211, 313553
Offset: 1

Views

Author

Robert Price, Aug 29 2013

Keywords

Comments

All terms are prime.
a(5) > 10^5.

Crossrefs

Programs

  • Mathematica
    Do[ p=Prime[n]; If[ PrimeQ[ (33^p + 1)/34 ], Print[p] ], {n, 1, 9592} ]
  • PARI
    is(n)=ispseudoprime((33^n+1)/34) \\ Charles R Greathouse IV, Jun 13 2017

Extensions

a(5) from Paul Bourdelais, Feb 26 2021

A236530 Numbers n such that (48^n + 1)/49 is prime.

Original entry on oeis.org

5, 17, 131, 84589
Offset: 1

Views

Author

Robert Price, Jan 27 2014

Keywords

Comments

All terms are primes.
a(5) > 10^5.

Crossrefs

Programs

  • Mathematica
    Do[ p=Prime[n]; If[ PrimeQ[ (48^p + 1)/49 ], Print[p] ], {n, 1, 9592} ]
  • PARI
    is(n)=ispseudoprime((48^n+1)/49) \\ Charles R Greathouse IV, Jun 13 2017

Extensions

Incorrect first term deleted by Robert Price, Feb 21 2014

A378115 Numbers k such that (23^k + 2^k)/25 is prime.

Original entry on oeis.org

3, 19, 61, 97, 397, 1511
Offset: 1

Views

Author

Robert Price, Nov 16 2024

Keywords

Comments

The definition implies that k must be a prime.
a(7) > 10^5.

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[10000]], PrimeQ[(23^# + 2^#)/25] &]

A378953 Numbers k such that (29^k + 2^k)/31 is prime.

Original entry on oeis.org

3, 7, 11, 157, 1429, 2579, 11909
Offset: 1

Views

Author

Robert Price, Dec 11 2024

Keywords

Comments

The definition implies that k must be a prime.
a(8) > 10^5.

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[10000]], PrimeQ[(29^# + 2^#)/31] &]

A379428 Numbers k such that (39^k + 2^k)/41 is prime.

Original entry on oeis.org

3, 5, 19, 2543, 4691, 14669, 19819, 53891, 83137
Offset: 1

Views

Author

Robert Price, Dec 22 2024

Keywords

Comments

The definition implies that k must be a prime.
a(10) > 10^5.

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[10000]], PrimeQ[(39^# + 2^#)/41] &]

A379429 Numbers k such that (31^k + 2^k)/33 is prime.

Original entry on oeis.org

229, 1429, 36083, 44089
Offset: 1

Views

Author

Robert Price, Dec 22 2024

Keywords

Comments

The definition implies that k must be a prime.
a(5) > 10^5.

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[10000]], PrimeQ[(31^# + 2^#)/33] &]

A379986 Numbers k such that (20^k + 3^k)/23 is prime.

Original entry on oeis.org

3, 19, 271, 577, 977, 1871, 8647, 9479, 34759, 44959, 63149
Offset: 1

Views

Author

Robert Price, Jan 07 2025

Keywords

Comments

The definition implies that k must be a prime.
a(12) > 10^5.

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[10000]], PrimeQ[(20^# + 3^#)/23] &]
Previous Showing 11-20 of 33 results. Next