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

A125957 Numbers n such that (2^n + 11^n)/13 is prime.

Original entry on oeis.org

3, 5, 17, 67, 83, 101, 1373, 6101, 12119, 61781
Offset: 1

Views

Author

Alexander Adamchuk, Feb 06 2007

Keywords

Comments

All terms are primes. Corresponding primes of the form (2^n + 11^n)/13 are {103, 12391, 38880540653801911, ...}.
a(11) > 10^5. - Robert Price, Feb 26 2013

Crossrefs

Cf. A000978 = numbers n such that (2^n + 1)/3 is prime. Cf. A057469 = numbers n such that (2^n + 3^n)/5 is prime. Cf. A082387 = numbers n such that (2^n + 5^n)/7 is prime.

Programs

  • Mathematica
    Do[p=Prime[n];f=(2^p+11^p)/13; If[PrimeQ[f], Print[{p, f}]], {n, 1, 100}]
  • PARI
    is(n)=ispseudoprime((2^n+11^n)/13) \\ Charles R Greathouse IV, Feb 20 2017

Extensions

2 more terms from Ryan Propper, Feb 09 2008
a(9)-a(10) from Robert Price, Feb 26 2013

A231604 Numbers n such that (42^n + 1)/43 is prime.

Original entry on oeis.org

3, 709, 1637, 17911, 127609, 172663
Offset: 1

Views

Author

Robert Price, Nov 11 2013

Keywords

Comments

The first 5 terms are primes.

Crossrefs

Programs

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

Extensions

a(5)=127609 corresponds to a probable prime discovered by Paul Bourdelais, Jul 02 2018
a(6)=172663 corresponds to a probable prime discovered by Paul Bourdelais, Jul 29 2019

A107360 Numbers p (necessarily prime) such that 2^p - 1 is a Mersenne prime and (2^p+1)/3 is a Wagstaff prime.

Original entry on oeis.org

3, 5, 7, 13, 17, 19, 31, 61, 127
Offset: 1

Views

Author

Lekraj Beedassy, May 23 2005

Keywords

Comments

Intersection of A000043 and A000978.
'The New Mersenne Conjecture' (Bateman-Selfridge-Wagstaff) states that if two of the following statements about an odd positive integer p are true, then the third one is also true: (a) p = 2^k +- 1 or p = 4^k +- 3, (b) 2^p - 1 is prime, (c) (2^p + 1)/3 is prime. (Amer Math Monthly, 96 (1989) p. 125.) - R. K. Guy, May 20 2005
The next term, if it exists, is not any currently known Mersenne prime exponent or Wagstaff prime exponent: it must be larger than A000043(48) = 57885161 and cannot be 74207281, 77232917, or 82589933. See Caldwell and both Wanless links. The New Mersenne Conjecture would require this sequence to be a subsequence of A122834, in which case the next term could not be less than A122834(28) = 2305843009213693951. See Caldwell and Höglund links. - Gord Palameta, Jun 28 2019, Jun 29 2024
p either has the form 2^k -+ 1 or the form 4^k -+ 3, according to the New Mersenne Conjecture. - Lekraj Beedassy, Sep 20 2006
Primes p such that (4^p - 1)/3 is a semiprime. - Arkadiusz Wesolowski, Jun 01 2013
Numbers m != 4 such that (4^m - 1)/3 is a semiprime. - Thomas Ordowski, Sep 25 2015
The indices of Wagstaff primes relating to the new Mersenne conjecture A122834 in a list of Jacobsthal numbers A001045. - Steve Homewood, Dec 01 2020

References

  • Paulo Ribenboim, The Little Book of Bigger Primes, Springer-Verlag NY 2004. See p. 83.

Crossrefs

Programs

  • Magma
    [p: p in PrimesUpTo(500) | IsPrime(2^p-1) and IsPrime((2^p+1) div 3)]; // Vincenzo Librandi, Sep 25 2015
    
  • Mathematica
    Select[Prime@Range[31], PrimeQ[(2^# + 1)/3] && PrimeQ[2^# - 1] &] (* Arkadiusz Wesolowski, Jun 01 2013 *)
  • PARI
    forprime(p=2, 1e3, if (!((2^p+1) % 3) && isprime((2^p+1)/3) && isprime(2^p-1), print1(p, ", "))); \\ Altug Alkan, Sep 25 2015

A122834 Primes in the new Mersenne conjecture; odd primes of the form 2^k+-1 or 4^k+-3.

Original entry on oeis.org

3, 5, 7, 13, 17, 19, 31, 61, 67, 127, 257, 1021, 4093, 4099, 8191, 16381, 65537, 65539, 131071, 262147, 524287, 1048573, 4194301, 16777213, 268435459, 1073741827, 2147483647, 2305843009213693951, 19342813113834066795298819
Offset: 1

Views

Author

T. D. Noe, Sep 12 2006

Keywords

Comments

Let p be a prime in this sequence. Call q=2^p-1 and r=(2^p+1)/3. The new Mersenne conjecture implies that either q and r are both prime or both composite.

References

  • R. K. Guy, Unsolved Problems in Number Theory, Section A3.

Crossrefs

Superset of: A000668, A019434, A228026.
Cf. A000043 (n such that 2^n-1 is prime), A000978 (n such that (2^n+1)/3 is prime), A107360 (the intersection of these).

Programs

  • Mathematica
    nn=100; Union[Select[1+2^Range[16],PrimeQ], Select[ -1+2^Range[2nn],PrimeQ], Select[3+4^Range[nn],PrimeQ], Select[ -3+4^Range[nn],PrimeQ]]

A124401 Indices where 2 occurs in A124151.

Original entry on oeis.org

3, 5, 8, 9, 11, 15, 21, 39, 50, 63, 83, 95, 99, 173, 350, 854, 1308, 1769, 2903, 5250, 5345, 5639, 6195, 7239, 21368, 41669, 47684, 58619, 63515, 69468, 70539, 133508, 134993, 187160, 493095
Offset: 1

Views

Author

Artur Jasinski, Dec 14 2006

Keywords

Comments

Does 2 occur infinitely often in A124151?
The sum in A124151 is 1+n if k=1, and 1+k*(k^(2n)-1)/(k^2-1) if k>1. The indices of A124151(n)=2 are where k=1 is avoided, but where k=2 leads to a prime, i.e., where 1+n is not prime but 1+2*(4^n-1)/3 = (2^(2n+1)+1)/3 is prime. Therefore this sequence here is constructed by taking all n=(A000978(i)-1)/2 (the members of A127936), and eliminating cases with 1+n in A000040. - R. J. Mathar, Feb 03 2010

Crossrefs

Programs

  • Mathematica
    f[n_] := Block[{k = 1}, While[ !PrimeQ[ Sum[k^(2j - 1), {j, n}] + 1] && k < 3, k++ ]; k]; lst = {}; Do[ If[f@n == 2, Print[n]; AppendTo[lst, n]], {n, 9250}]; lst (* Robert G. Wilson v, Dec 17 2006 *)
  • PARI
    is(n) = !isprime(n+1) && isprime(1 + 2*(4^n-1)/3); \\ Amiram Eldar, Oct 24 2024

Formula

A127936 \ A006093. - R. J. Mathar, Feb 03 2010

Extensions

More terms from Robert G. Wilson v, Dec 17 2006
a(24)-a(35) from R. J. Mathar, Feb 03 2010

A127317 Numbers n such that (256^n + 1)/257 is prime.

Original entry on oeis.org

5, 13, 23029
Offset: 1

Views

Author

Alexander Adamchuk, Mar 29 2007

Keywords

Comments

All terms are primes. Largest currently known prime of the form (2^n + 1)/257 is (256^23029 + 1)/257 found by Donovan Johnson 03/2005. The only currently known prime of the form (2^n + 1)/65537 is (65536^239 + 1)/65537.
From Giuseppe Coppoletta, May 18 2017: (Start)
In general, for any j > 1, if (2^(n*2^j) + 1)/Fj is a prime (where Fj = 2^2^j + 1 is the corresponding Fermat number), then n needs to be prime, as for any odd proper factor q of n, 2^(q*2^j) + 1 is another factor of the numerator. The same for j = 0, apart for the particular value n = 3^2.
For the case j = 4, I checked it again, and (65536^p + 1)/65537 indeed is not a prime at least for 239 < p < 12500, i.e. (2^n + 1)/65537 is not a prime at least up to n = 200000. Any higher upper bound available?
One can also remark that 65536 = 2^16 and 239 = 2^8 - 2^4 - 1. Is there any special reason (see Brennen's link) for that?
I checked also that (2^(p*2^j) + 1)/Fj is never a proper power (in particular it is not a prime power) for j = 0..4 and for any prime p, at least for any exponent p*2^j < 200000.
We can even conjecture that ((Fj-1)^p + 1)/Fj is always squarefree for any odd prime p and for any Fermat number Fj with j >= 0. Note that this is not true if p is not restricted to be a prime, even if p and Fj are coprime, as shown by the following counterexample relative to the case j = 1, f1 = 5: 4^91 + 1 == 0 mod 1093^2. Remark that any such counterexample has to be a Wieferich prime (A001220), but not every Wieferich prime gives a counterexample, as shown by the second known Wieferich prime (3511), which cannot match here because it belongs to A072936.
(End)

Crossrefs

Cf. A000978 = numbers n such that (2^n + 1)/3 is prime. Cf. A057182 = numbers n such that (16^n + 1)/17 is a prime.

Programs

  • Mathematica
    Do[n=8*Prime[k];f=2^n+1;If[PrimeQ[f/257],Print[{n,n/8}]],{k,1,2570}]

A215800 Numbers k such that (2^k+1)/3 can be written in the form a^2 + 3*b^2.

Original entry on oeis.org

1, 3, 7, 9, 13, 19, 21, 27, 31, 37, 39, 43, 49, 57, 61, 63, 67, 73, 79, 81, 93, 109, 111, 117, 127, 129, 139, 147, 151, 171, 183, 189, 199, 201, 217, 219, 237, 243, 247, 259, 277, 279, 301, 313, 327, 333, 351, 361, 381, 387, 417, 427, 433, 441, 453, 457, 513, 547, 549, 553, 567, 589, 597, 603, 613, 619, 643, 651, 657
Offset: 1

Views

Author

V. Raman, Aug 23 2012

Keywords

Comments

These (2^k+1)/3 numbers have no prime factors of the form 2 (mod 3) to an odd power.

Crossrefs

Programs

  • PARI
    for(i=2, 100, a=factorint(2^i+1)~; has=0; for(j=1, #a, if(a[1, j]%3==2&&a[2, j]%2==1, has=1; break)); if(has==0, print(i" -\t"a[1, ])))

Extensions

5 more terms from V. Raman, Aug 29 2012

A227170 Numbers n such that (16^n + 15^n)/31 is prime.

Original entry on oeis.org

3, 5, 13, 1439, 1669, 37691
Offset: 1

Views

Author

Jean-Louis Charton, Jul 03 2013

Keywords

Comments

All terms are prime.
a(7) > 10^5. - Robert Price, Aug 26 2013

Crossrefs

Programs

A231865 Numbers n such that (43^n + 1)/44 is prime.

Original entry on oeis.org

5, 7, 19, 251, 277, 383, 503, 3019, 4517, 9967, 29573
Offset: 1

Views

Author

Robert Price, Nov 14 2013

Keywords

Comments

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

Crossrefs

Programs

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

A125958 Least number k > 0 such that (2^k + (2n-1)^k)/(2n+1) is prime.

Original entry on oeis.org

3, 3, 3, 5, 3, 3, 7, 3, 5, 5, 11, 3, 19, 11, 3, 229, 47, 5, 257, 3, 19, 31, 17, 11, 13, 3, 3, 5, 5, 59, 23, 3, 3, 7, 79, 3, 3373, 3, 3, 7, 13, 7, 7, 3527, 593, 19, 3, 3, 13, 13, 11, 19, 41, 3, 7, 109, 3, 227, 13, 5, 5, 3, 239, 5, 3251, 3, 1237, 3, 7, 31, 3, 7
Offset: 1

Views

Author

Alexander Adamchuk, Feb 06 2007

Keywords

Comments

All terms are odd primes.
a(38),...,a(43) = {3,3,7,13,7,7}.
a(46),...,a(64) = {19,3,3,13,13,11,19,41,3,7,109,11,227,13,5,5,3,239,5}.
a(66) = 3. a(68),...,a(72) = {3,7,31,3,7}.
a(74),...,a(92) = {3,5,19,17,3,83,3,3,19,19,11,11,61,3,7,7,3,41,29}.
a(94) = 5. a(97),a(98) = {19,7}. a(100) = 31.
a(n) is currently unknown for n = {37,44,45,65,67,73,93,95,96,99,...}.
From Kevin P. Thompson, May 18 2022: (Start)
All known terms from n=1..100 correspond to proven primes.
a(96) > 10250.
a(99) > 10250. (End)
Presuming every prime is seen at least once, one can specifically seek those with fixed k. Doing this, a(174) = 37, a(368) = 43 for example. - Bill McEachen, Aug 26 2024

Examples

			For n=4, the expression (2^k + (2n-1)^k)/(2n+1) takes on values 1, 53/9, 39, 2417/9, and 1871 for k=1..5. Since 1871 is the first prime number to occur, a(4) = 5.
		

Crossrefs

Cf. A000978 ((2^n + 1)/3 is prime), A057469 ((2^n + 3^n)/5 is prime).
Cf. A082387 ((2^n + 5^n)/7 is prime), A125955 ((2^n + 7^n)/9 is prime).
Cf. A125956 ((2^n + 9^n)/11 is prime), A125955 ((2^n + 11^n)/13 is prime).

Programs

  • Mathematica
    Do[k = 1; While[ !PrimeQ[(2^k + (2n-1)^k)/(2n+1)], k++ ]; Print[k], {n, 100}] (* Ryan Propper, Mar 29 2007 *)

Extensions

More terms from Ryan Propper, Mar 29 2007
a(65)-a(72) from Kevin P. Thompson, May 18 2022
Previous Showing 31-40 of 82 results. Next