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

A234594 Erroneous version of Brier numbers A076335.

Original entry on oeis.org

143665583045350793098657, 1547374756499590486317191, 3127894363368981760543181, 3780564951798029783879299
Offset: 1

Views

Author

N. J. A. Sloane, Jan 03 2014

Keywords

Comments

From 2002 to 2014 this was given as the sequence of Brier numbers. These /are/ Brier numbers, but there are many smaller numbers - see A076335.

A076336 (Provable) Sierpiński numbers: odd numbers n such that for all k >= 1 the numbers n*2^k + 1 are composite.

Original entry on oeis.org

78557, 271129, 271577, 322523, 327739, 482719, 575041, 603713, 903983, 934909, 965431, 1259779, 1290677, 1518781, 1624097, 1639459, 1777613, 2131043, 2131099, 2191531, 2510177, 2541601, 2576089, 2931767, 2931991, 3083723, 3098059, 3555593, 3608251
Offset: 1

Views

Author

N. J. A. Sloane, Nov 07 2002

Keywords

Comments

"Provable" in the definition means provable by any method (whether using a covering set or not). - N. J. A. Sloane, Aug 03 2024
It is only a conjecture that this sequence is complete up to 3000000 - there may be missing terms.
It is conjectured that 78557 is the smallest Sierpiński number. - T. D. Noe, Oct 31 2003
Sierpiński numbers may be proved by exhibiting a periodic sequence p of prime divisors with p(k) | n*2^k+1 and disproved by finding a prime n*2^k+1. It is conjectured by some people that numbers that cannot be proved to be Sierpiński by this method are non-Sierpiński. However, some numbers resist both proof and disproof. - David W. Wilson, Jan 17 2005 [Edited by N. J. A. Sloane, Aug 03 2024]
Sierpiński showed that this sequence is infinite.
There are four related sequences that arise in this context:
S1: Numbers n such that n*2^k + 1 is composite for all k (this sequence)
S2: Odd numbers n such that 2^k + n is composite for all k (apparently it is conjectured that S1 and S2 are the same sequence)
S3: Numbers n such that n*2^k + 1 is prime for all k (empty)
S4: Numbers n such that 2^k + n is prime for all k (empty)
The following argument, due to Michael Reid, attempts to show that S3 and S4 are empty: If p is a prime divisor of n + 1, then for k = p - 1, the term (either n*2^k + 1 or 2^k + n) is a multiple of p (and also > p, so not prime). [However, David McAfferty points that for the case S3, this argument fails if p is of the form 2^m-1. So it may only be a conjecture that the set S3 is empty. - N. J. A. Sloane, Jun 27 2021]
a(1) = 78557 is also the smallest odd n for which either n^p*2^k + 1 or n^p + 2^k is composite for every k > 0 and every prime p greater than 3. - Arkadiusz Wesolowski, Oct 12 2015
n = 4008735125781478102999926000625 = (A213353(1))^4 is in this sequence but is thought not to satisfy the conjecture mentioned by David W. Wilson above. For this multiplier, all n*2^(4m + 2) + 1 are composite by an Aurifeuillean factorization. Only the remaining cases, n*2^k + 1 where k is not 2 modulo 4, are covered by a finite set of primes (namely {3, 17, 97, 241, 257, 673}). See Izotov link for details (although with another prime set). - Jeppe Stig Nielsen, Apr 14 2018
Conjecture: if S is a (provable) Sierpiński number, then there exists a prime P such that S^p is also a Sierpiński number for every prime p > P. - Thomas Ordowski, Jul 12 2022
Problem: are there odd numbers K such that K - 2^m is a Sierpiński number for every 1 < 2^m < K? If so, then all positive values of (K - 2^m)*2^n + 1 are composite. Also, by the dual Sierpiński conjecture, K - 2^m + 2^n is composite for every 1 < 2^m < K and for every n > 0. Note that, by the dual Sierpiński conjecture, if p is an odd prime and 1 < 2^m < p, then there exists n such that (p - 2^m)*2^n + 1 is prime. So if such a number K exists, it must be composite. - Thomas Ordowski, Jul 20 2022
From M. F. Hasler, Jul 23 2022: (Start)
1) The above Conjecture is true for Sierpiński numbers provable by a "covering set", with P equal to the largest prime factor of the elements of that set*, according to the explanation from Michael Filaseta posted Jul 12 2022 on the SeqFan mailing list, cf. links. (*More generally: for S^p with any p coprime to all elements of the covering set, but not necessarily prime.)
2) Wilson's comment from 2005 (also the first part, not only the conjecture) is misleading if not wrong because there are provable Sierpiński numbers for which a covering set is not known (maybe even believed not to exist), as explained by Nielsen in his above comment from 2018. (End)

References

  • R. K. Guy, Unsolved Problems in Number Theory, Section B21.
  • C. A. Pickover, The Math Book, Sterling, NY, 2009; see p. 420.
  • Paulo Ribenboim, The Book of Prime Number Records, 2nd. ed., 1989, p. 282.
  • Paulo Ribenboim, The Little Book of Bigger Primes, Springer-Verlag NY 2004. See pp. 237-238.

Crossrefs

A076337 Riesel numbers: odd numbers n such that for all k >= 1 the numbers n*2^k - 1 are composite.

Original entry on oeis.org

509203
Offset: 1

Views

Author

N. J. A. Sloane, Nov 07 2002

Keywords

Comments

509203 has been proved to be a member of the sequence, and is conjectured to be the smallest member. However, as of 2009, there are still several smaller numbers which are candidates and have not yet been ruled out (see links).
Riesel numbers are proved by exhibiting a periodic sequence p of prime divisors with p(k) | n*2^k-1 and disproved by finding prime n*2^k-1. It is conjectured that numbers that cannot be proved Riesel in this way are non-Riesel. However, some numbers resist both proof and disproof.
Others conjecture the opposite: that there are infinitely many Riesel numbers that do not arise from a covering system, see A101036. The word "odd" is needed in the definition because otherwise for any term n, all numbers n*2^m, m >= 1, would also be Riesel numbers, but we don't want them in this sequence (as is manifest from A101036). Since 1 and 3 obviously are not in this sequence, for any n in this sequence n-1 is an even number > 2 and therefore composite, so one could replace "k >= 1" equivalently by "k >= 0". - M. F. Hasler, Aug 20 2020
Named after the Swedish mathematician Hans Ivar Riesel (1929-2014). - Amiram Eldar, Apr 02 2022

References

  • R. K. Guy, Unsolved Problems in Number Theory, Section B21.
  • Paulo Ribenboim, The Book of Prime Number Records, 2nd ed., 1989, p. 282.

Crossrefs

Main sequences for Riesel problem: A040081, A046069, A050412, A052333, A076337, A101036, A108129.

Extensions

Normally we require at least four terms but we will make an exception for this sequence in view of its importance. - N. J. A. Sloane, Nov 07 2002. See A101036 for the most likely extension.
Edited by N. J. A. Sloane, Nov 13 2009
Definition corrected ("odd" added) by M. F. Hasler, Aug 23 2020

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

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.

A194600 Record values in A194591.

Original entry on oeis.org

0, 1, 2, 4, 5, 6, 11, 18, 20, 28, 70, 106, 208, 726, 910, 2906, 7431, 14073, 22394, 41422, 82587, 85461, 356981
Offset: 1

Views

Author

Arkadiusz Wesolowski, Aug 30 2011

Keywords

Comments

Indices of records are given by A217892.

Examples

			A194591(59) = 5 since A194591(109) = 6 is the next record value.
		

References

  • Wilfrid Keller, personal communication, 2010.

Crossrefs

Programs

  • Mathematica
    l = -1; Flatten[Table[k = 0; While[! PrimeQ[n*2^k - 1] && ! PrimeQ[n*2^k + 1], k++]; If[k > l, l = k, {}], {n, 10^5}]] (* Arkadiusz Wesolowski, Sep 04 2011 *)

Extensions

a(23)=A194637(22) from Wilfrid Keller, added by Max Alekseyev, Oct 18 2014

A194603 Smallest prime either of the form n*2^k - 1 or n*2^k + 1, k >= 0, or 0 if no such prime exists.

Original entry on oeis.org

2, 3, 2, 3, 11, 5, 13, 7, 17, 11, 23, 11, 53, 13, 29, 17, 67, 17, 37, 19, 41, 23, 47, 23, 101, 53, 53, 29, 59, 29, 61, 31, 67, 67, 71, 37, 73, 37, 79, 41, 83, 41, 173, 43, 89, 47, 751, 47, 97, 101, 101, 53, 107, 53, 109, 113, 113, 59, 1889, 59, 487, 61, 127
Offset: 1

Views

Author

Arkadiusz Wesolowski, Aug 30 2011

Keywords

Comments

Primes arising from A194591 (or 0 if no such prime exists).
Many of these terms are in A093868.

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)=13.
		

Crossrefs

Programs

  • Mathematica
    Table[k = 0; While[! PrimeQ[a = n*2^k - 1] && ! PrimeQ[a = n*2^k + 1], k++]; a, {n, 100}] (* Arkadiusz Wesolowski, Sep 04 2011 *)
    n2k[n_]:=Module[{k=0},While[NoneTrue[n*2^k+{1,-1},PrimeQ],k++];SelectFirst[ n*2^k+{-1,1},PrimeQ]]; Array[n2k,70] (* The program uses the NoneTrue and SelectFirst functions from Mathematica version 10 *) (* Harvey P. Dale, Jun 03 2015 *)

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 *)

A194608 Smallest prime either of the form prime(n)*2^k - 1 or prime(n)*2^k + 1, k >= 0, or 0 if no such prime exists, where prime(n) denotes the n-th prime number.

Original entry on oeis.org

3, 2, 11, 13, 23, 53, 67, 37, 47, 59, 61, 73, 83, 173, 751, 107, 1889, 487, 269, 283, 293, 157, 167, 179, 193, 809, 823, 857, 6977, 227, 509, 263, 547, 277, 1193, 2417, 313, 653, 2671, 347, 359, 1447, 383, 773, 787, 397, 421, 1783, 907, 457, 467, 479, 493567
Offset: 1

Views

Author

Arkadiusz Wesolowski, Aug 30 2011

Keywords

Comments

Primes arising from A194606 (or 0 if no such prime exists).

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)=13.
		

Crossrefs

Programs

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

A194635 Indices of records in A194591 restricted to prime indices.

Original entry on oeis.org

2, 5, 13, 47, 59, 109, 241, 631, 1109, 1373, 1447, 16229, 52267, 56543, 838441, 16935761, 270704167, 3296757029
Offset: 1

Views

Author

Arkadiusz Wesolowski, Aug 31 2011

Keywords

Comments

Integers for which the smallest k in A194591 such that prime(n)*2^k - 1 or prime(n)*2^k + 1 is prime (A194608) increases.
a(19) > 10^10.
A194607 gives the record values of A194606.

References

  • Wilfrid Keller, personal communication, 2010.

Crossrefs

Programs

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

Extensions

a(17) was found in 2000 by Wilfrid Keller
a(18) was found in 2003 by Patrick De Geest
Edited by Max Alekseyev, Oct 14 2012
Edited by Arkadiusz Wesolowski, Sep 11 2013
Showing 1-10 of 26 results. Next