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

A103964 Record values in A040076.

Original entry on oeis.org

0, 1, 2, 3, 6, 8, 583, 6393, 9715, 33288, 3321063, 5054502, 31172165
Offset: 1

Views

Author

Lei Zhou, Feb 24 2005

Keywords

Comments

The index sequence of this sequence is 1, 3, 7, 17, 19, 31, 47, 383, 2897. A040076(2897)>8192, not yet found.
A064699 gives where the records occur.

Examples

			A040076(1)=0, so a(1)=0;
A040076(3)=1, so a(2)=1;
		

Crossrefs

Programs

  • Mathematica
    k = -1; n = 0; km = k; While[k < 8192, n++; k = 0; cp = n*(2^ k) + 1; While[(! PrimeQ[cp]) && (k < 8192), k++; cp = n*(2^k) + 1]; If[k > km, km = k; Print[{n, km}]]]

Extensions

Extended by T. D. Noe, Nov 15 2010
a(13) was found by PrimeGrid, added by Richard N. Smith, Jul 15 2019

A064699 Integers for which the smallest m in A040076 such that n*2^m+1 is prime (A050921) increases.

Original entry on oeis.org

1, 3, 7, 17, 19, 31, 47, 383, 2897, 3061, 4847, 5359, 10223
Offset: 1

Views

Author

Robert G. Wilson v, Oct 16 2001

Keywords

Comments

Where records occur in A040076. A103964 gives the record values.

Crossrefs

Programs

  • Mathematica
    a = -1; Do[m = 0; While[ !PrimeQ[n*2^m + 1], m++ ]; If[m > a, a = m; Print[n]], {n, 1, 10^3} ]

Extensions

Corrected and extended by T. D. Noe, Nov 15 2010
a(13) was found by PrimeGrid, added by Arkadiusz Wesolowski, Feb 13 2017

A064721 Potential Sierpiński numbers: integers for which the smallest m > 2^10 in A040076 such that n*2^m+1 is prime (A050921).

Original entry on oeis.org

383, 766, 881, 1532, 1643, 1762, 2897, 3061, 3064, 3286, 3443, 3524, 3829, 4847, 4861, 5297, 5359, 5794, 5897, 6122, 6128, 6319, 6572, 6886, 7013, 7352, 7493, 7651, 7658, 7909, 7957, 8119, 8269, 8423, 8543, 8929, 9323, 9694, 9722
Offset: 1

Views

Author

Robert G. Wilson v, Oct 16 2001

Keywords

Comments

The first confirmed Sierpiński number is 78557.

Crossrefs

Programs

  • Mathematica
    Do[m = 0; While[m <= 2^10 && !PrimeQ[n*2^m + 1], m++ ]; If[m > 2^10, Print[n]], {n, 1, 10^4} ]

A076335 Brier numbers: numbers that are both Riesel and Sierpiński [Sierpinski], or odd n such that for all k >= 1 the numbers n*2^k + 1 and n*2^k - 1 are composite.

Original entry on oeis.org

3316923598096294713661, 10439679896374780276373, 11615103277955704975673, 12607110588854501953787, 17855036657007596110949, 21444598169181578466233, 28960674973436106391349, 32099522445515872473461, 32904995562220857573541
Offset: 1

Views

Author

Olivier Gérard, Nov 07 2002

Keywords

Comments

a(1), a(4), and a(6)-a(8) computed by Christophe Clavier, Dec 31 2013 (see link below). 10439679896374780276373 had been found earlier in 2013 by Dan Ismailescu and Peter Seho Park (see reference below). a(3), a(5), and a(9) computed in 2014 by Emmanuel Vantieghem.
These are just the smallest examples known - there may be smaller ones.
There are no Brier numbers below 10^9. - Arkadiusz Wesolowski, Aug 03 2009
Other Brier numbers are 143665583045350793098657, 1547374756499590486317191, 3127894363368981760543181, 3780564951798029783879299, but these may not be the /next/ Brier numbers after those shown. From 2002 to 2013 these four numbers were given here as the smallest known Brier numbers, so the new entry A234594 has been created to preserve that fact. - N. J. A. Sloane, Jan 03 2014
143665583045350793098657 computed in 2007 by Michael Filaseta, Carrie Finch, and Mark Kozek.
It is a conjecture that every such number has more than 10 digits. In 2011 I have calculated that for any n < 10^10 there is a k such that either n*2^k + 1 or n*2^k - 1 has all its prime factors greater than 1321. - Arkadiusz Wesolowski, Feb 03 2016 [Editor's note: The comment below states that the conjecture is now proved. - M. F. Hasler, Oct 06 2021]
There are no Brier numbers below 10^10. For each n < 10^10, there exists at least one prime of the form n*2^k-1 or n*2^k+1 with k <= 356981. The largest necessary prime is 1355477231*2^356981+1. - Kellen Shenton, Oct 25 2020

Crossrefs

Extensions

Many terms reported in Problem 29 from "The Prime Problems & Puzzles Connection" from Carlos Rivera, May 30 2010
Entry revised by Arkadiusz Wesolowski, May 17 2012
Entry revised by Carlos Rivera and N. J. A. Sloane, Jan 03 2014
Entry revised by Arkadiusz Wesolowski, Feb 15 2014

A180247 Prime Brier numbers: primes p such that for all k >= 1 the numbers p*2^k + 1 and p*2^k - 1 are composite.

Original entry on oeis.org

10439679896374780276373, 21444598169181578466233, 105404490005793363299729, 178328409866851219182953, 239365215362656954573813, 378418904967987321998467, 422280395899865397194393, 474362792344501650476113, 490393518369132405769309
Offset: 1

Views

Author

Arkadiusz Wesolowski, Aug 19 2010

Keywords

Comments

WARNING: These are just the smallest examples known - there may be smaller ones. Even the first term is uncertain. - N. J. A. Sloane, Jun 20 2017
There are no prime Brier numbers below 10^10. - Arkadiusz Wesolowski, Jan 12 2011
It is a conjecture that every such number has more than 11 digits. In 2011 I have calculated that for any prime p < 10^11 there is a k such that either p*2^k + 1 or p*2^k - 1 has all its prime factors greater than 1321. - Arkadiusz Wesolowski, Feb 03 2016
The first term was found by Dan Ismailescu and Peter Seho Park and the next two by Christophe Clavier (see below). See also A076335. - N. J. A. Sloane, Jan 03 2014
a(4)-a(9) computed in 2017 by the author.

Crossrefs

Extensions

Entry revised by N. J. A. Sloane, Jan 03 2014
Entry revised by Arkadiusz Wesolowski, May 29 2017

A046067 Smallest m such that (2n-1)2^m+1 is prime, or -1 if no such value exists.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 2, 1, 3, 6, 1, 1, 2, 2, 1, 8, 1, 1, 2, 1, 1, 2, 2, 583, 2, 1, 1, 4, 2, 5, 4, 1, 1, 2, 1, 3, 2, 1, 3, 2, 1, 1, 4, 2, 1, 8, 2, 1, 2, 1, 3, 16, 1, 3, 6, 1, 1, 2, 3, 1, 8, 6, 1, 2, 3, 1, 4, 1, 3, 2, 1, 53, 6, 8, 3, 4, 1, 1, 8, 6, 3, 2, 1, 7, 2, 8, 1, 2, 2, 1, 4, 1, 3, 6, 1, 1, 2, 4, 15, 2
Offset: 1

Views

Author

Keywords

Comments

There exist odd integers 2k-1 such that (2k-1)2^n+1 is always composite.
The smallest known example is 78557. Therefore a(39279) = -1.
For the corresponding primes see A057025(n-1), n >= 1, where a 0 will show up if a(n) = -1. - Wolfdieter Lang, Feb 07 2013.
Jaeschke shows that every positive integer appears infinitely often. - Jeppe Stig Nielsen, Jul 06 2020

References

  • Ribenboim, P. The New Book of Prime Number Records. New York: Springer-Verlag, pp. 357-359, 1996.

Crossrefs

Cf. A046068.
Bisection of A040076. Cf. A033809.

Programs

  • Mathematica
    max = 10000 (* this maximum value of m is sufficient up to n = 1000 *); a[n_] := For[m = 1, m <= max, m++, If[PrimeQ[(2n - 1)*2^m + 1], Return[m]]] /. Null -> -1; a[1] = 0; Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Jun 08 2012 *)

A194591 Least k >= 0 such that n*2^k - 1 or n*2^k + 1 is prime, or -1 if no such value exists.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 1, 0, 1, 0, 2, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 2, 0, 1, 0, 4, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 5, 0, 3, 0, 1, 1, 1, 0, 2, 0, 1, 0, 2, 0, 2, 0, 1, 1, 2, 0, 1, 0, 1, 0, 1, 0, 4, 1
Offset: 1

Views

Author

Arkadiusz Wesolowski, Aug 29 2011

Keywords

Comments

Fred Cohen and J. L. Selfridge showed that a(n) = -1 infinitely often.
a(n) = 0 iff n is in A045718.

Examples

			For n=7, 7*2^0-1 and 7*2^0+1 are composite, but 7*2^1-1=13 is prime, so a(7)=1.
		

Crossrefs

Cf. A217892 and A194600 (indices and values of the records).

Programs

  • Mathematica
    Table[k = 0; While[! PrimeQ[n*2^k - 1] && ! PrimeQ[n*2^k + 1], k++]; k, {n, 100}] (* T. D. Noe, Aug 29 2011 *)

Formula

If a(n)>0, then a(2n)=a(n)-1.

A194606 Least k >= 0 such that prime(n)*2^k - 1 or prime(n)*2^k + 1 is prime, or -1 if no such value exists, where prime(n) denotes the n-th prime number.

Original entry on oeis.org

0, 0, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 4, 1, 5, 3, 2, 2, 2, 1, 1, 1, 1, 3, 3, 3, 6, 1, 2, 1, 2, 1, 3, 4, 1, 2, 4, 1, 1, 3, 1, 2, 2, 1, 1, 3, 2, 1, 1, 1, 11, 1, 4, 2, 3, 1, 2, 1, 11, 1, 1, 9, 3, 6, 1, 1, 3, 3, 4, 1, 1, 2, 1, 2, 11, 4, 3, 2, 1, 4, 1, 2, 1, 1
Offset: 1

Views

Author

Arkadiusz Wesolowski, Aug 30 2011

Keywords

Comments

A194607 gives the record values.

Examples

			For n=4, 7*2^0-1 and 7*2^0+1 are composite, but 7*2^1-1=13 is prime, so a(4)=1.
		

Crossrefs

Programs

  • Mathematica
    Table[p = Prime[n]; k = 0; While[! PrimeQ[p*2^k - 1] && ! PrimeQ[p*2^k + 1], k++]; k, {n, 100}] (* Arkadiusz Wesolowski, Sep 04 2011 *)

A194636 Least k >= 0 such that (2*n-1)*2^k - 1 or (2*n-1)*2^k + 1 is prime, or -1 if no such value exists.

Original entry on oeis.org

0, 0, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 4, 1, 1, 1, 1, 1, 5, 3, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 1, 4, 1, 1, 1, 2, 1, 1, 1, 3, 3, 1, 3, 6, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 3, 1, 2, 1, 1, 2, 5, 1, 3, 4, 1, 1, 1, 1, 2, 2, 1, 4, 1, 2
Offset: 1

Views

Author

Arkadiusz Wesolowski, Aug 31 2011

Keywords

Comments

Bisection of A194591: a(n) = A194591(2*n-1).
A194637 gives the record values.

Examples

			For n=4, 7*2^0-1 and 7*2^0+1 are composite, but 7*2^1-1=13 is prime, so a(4)=1.
		

Crossrefs

Programs

  • Mathematica
    Table[n = 2*n - 1; k = 0; While[! PrimeQ[n*2^k - 1] && ! PrimeQ[n*2^k + 1], k++]; k, {n, 100}] (* Arkadiusz Wesolowski, Sep 04 2011 *)
    p[n_]:=Module[{c=2n-1,k=0},While[!Or@@PrimeQ[c*2^k+{1,-1}],k++];k]; Array[ p,90] (* Harvey P. Dale, Mar 08 2013 *)

A050921 Smallest prime of form n*2^m+1, m >= 0, or 0 if no such prime exists.

Original entry on oeis.org

2, 3, 7, 5, 11, 7, 29, 17, 19, 11, 23, 13, 53, 29, 31, 17, 137, 19, 1217, 41, 43, 23, 47, 97, 101, 53, 109, 29, 59, 31, 7937, 257, 67, 137, 71, 37, 149, 1217, 79, 41, 83, 43, 173, 89, 181, 47
Offset: 1

Views

Author

N. J. A. Sloane, Dec 30 1999

Keywords

Comments

Primes arising from A040076 (or 0 if no such prime exists).
Or: Starting with x=n+1, the first prime created by iterating the map x-> 2*x-1. - Kevin L. Schwartz and Christian N. K. Anderson, May 13 2013

Crossrefs

Programs

  • Maple
    A050921 := proc(n)
        for m from 0 do
            if isprime(n*2^m+1) then
                return n*2^m+1 ;
            end if;
        end do;
    end proc; # R. J. Mathar, Jun 01 2013
  • Mathematica
    Do[m = 0; While[ !PrimeQ[n*2^m + 1], m++ ]; Print[n*2^m + 1], {n, 1, 47} ]

Extensions

The next term (47*2^583 + 1) is too large to show.
Showing 1-10 of 21 results. Next