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-6 of 6 results.

A135977 Mersenne composites (A065341) with exactly 3 prime factors.

Original entry on oeis.org

536870911, 8796093022207, 140737488355327, 9007199254740991, 2361183241434822606847, 9444732965739290427391, 604462909807314587353087
Offset: 1

Views

Author

Artur Jasinski, Dec 09 2007

Keywords

Links

Crossrefs

Subsequence of A065341.
Cf. A000225, A054723, A134852, A135975, A135976, A135978, A135979, A344515.

Programs

  • Mathematica
    k = {}; Do[If[ ! PrimeQ[2^Prime[n] - 1], c = FactorInteger[2^Prime[n] - 1]; d = Length[c]; If[d == 3, AppendTo[k, 2^Prime[n] - 1]]], {n, 1, 40}]; k

Formula

a(n) = 2^A344515(n) - 1. - Amiram Eldar, May 23 2021

A135978 Primes p such that 2^p-1 has exactly 2 prime factors.

Original entry on oeis.org

11, 23, 37, 41, 59, 67, 83, 97, 101, 103, 109, 131, 137, 139, 149, 167, 197, 199, 227, 241, 269, 271, 281, 293, 347, 373, 379, 421, 457, 487, 523, 727, 809, 881, 971, 983, 997, 1061, 1063
Offset: 1

Views

Author

Artur Jasinski, Dec 09 2007

Keywords

Comments

a(40)>=1277. - Amiram Eldar, Sep 29 2018

Crossrefs

Cf. A000225, A065341, A054723, A134852, A135975, A135976, A135977.

Programs

  • Mathematica
    k = {}; Do[If[ ! PrimeQ[2^Prime[n] - 1], c = FactorInteger[2^Prime[n] - 1]; d = Length[c]; If[d == 2, AppendTo[k, Prime[n]]]], {n, 1, 40}]; k

Extensions

a(17)-a(37) from Arkadiusz Wesolowski, Jan 26 2012
a(38)-a(39) from Amiram Eldar, Sep 29 2018

A135979 Indices n such that 2^prime(n)-1 has exactly 2 distinct prime factors.

Original entry on oeis.org

5, 9, 12, 13, 17, 19, 23, 25, 26, 27, 29, 32, 33, 34, 35, 39, 45, 46, 49, 53, 57, 58, 60, 62, 69, 74, 75, 82, 88, 93, 99, 129, 140, 152, 164, 166, 168, 178, 179
Offset: 1

Views

Author

Artur Jasinski, Dec 09 2007

Keywords

Comments

a(40)>=206. - Amiram Eldar, Sep 29 2018

Crossrefs

Cf. A000225, A065341, A054723, A134852, A135975, A135976, A135977, A135978.

Programs

  • Mathematica
    k = {}; Do[If[ ! PrimeQ[2^Prime[n] - 1], c = FactorInteger[2^Prime[n] - 1]; d = Length[c]; If[d == 2, AppendTo[k, n]]], {n, 1, 40}]; k
Select[Range[40],PrimeNu[2^Prime[#]-1]==2&] (* Harvey P. Dale, Jul 07 2013 *)

Formula

Equals {k: A001221(A001348(k)) = 2}. a(n) = A049084(A135978(n)). - R. J. Mathar, May 03 2008

Extensions

Edited by R. J. Mathar, May 03 2008
a(17)-a(34) from Donovan Johnson, Jun 14 2009
a(35)-a(39) from Amiram Eldar, Sep 29 2018

A135980 Numbers k such that the Mersenne number 2^prime(k)-1 is composite.

Original entry on oeis.org

5, 9, 10, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 25, 26, 27, 29, 30, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78
Offset: 1

Views

Author

Artur Jasinski, Dec 09 2007

Keywords

Comments

A135979 is a subsequence of this sequence.

Crossrefs

Cf. A000225, A065341, A054723, A134852, A135975, A135976, A135977, A135978, A135979.

Programs

  • Mathematica
    k = {}; Do[If[ ! PrimeQ[2^Prime[n] - 1], AppendTo[k, n]], {n, 1, 40}]; k
m = PrimePi @ MersennePrimeExponent @ Range[13]; Complement[Range[m[[-1]]], m] (* Amiram Eldar, Mar 12 2020 *)
  • PARI
    isok(k) = !isprime(2^prime(k)-1); \\ Michel Marcus, Mar 12 2020

Formula

prime(a(n)) = A054723(n).
a(n) = pi(A054723(n)).

Extensions

More terms from Amiram Eldar, Mar 12 2020

A344515 Primes p such that 2^p-1 has exactly 3 distinct prime factors.

Original entry on oeis.org

29, 43, 47, 53, 71, 73, 79, 179, 193, 211, 257, 277, 283, 311, 331, 349, 353, 389, 409, 443, 467, 499, 563, 577, 599, 613, 631, 643, 647, 683, 709, 751, 769, 829, 919, 941, 1039, 1103, 1117, 1123, 1171, 1193
Offset: 1

Views

Author

Amiram Eldar, May 21 2021

Keywords

Comments

The corresponding Mersenne numbers are in A135977.
a(43) >= 1237.
The following primes are also terms of this sequence: 1301, 1303, 1327, 1459, 1531, 1559, 1907, 2311, 2383, 2887, 3041, 3547, 3833, 4127, 4507, 4871, 6883, 7673, 8233.

Examples

			29 is a term since 2^29-1 = 536870911 = 233 * 1103 * 2089 has exactly 3 distinct prime factors.

Crossrefs

Subsequence of A054723.
Cf. A000225, A065341, A135975, A135976, A135977, A135978.

Programs

  • Mathematica
    Select[Range[200], PrimeQ[#] && PrimeNu[2^# - 1] == 3 &]

Formula

2^a(n) - 1 = A135977(n).

A135386 Mersenne composites A065341 with 4 or more prime factors.

Original entry on oeis.org

10384593717069655257060992658440191, 2854495385411919762116571938898990272765493247, 182687704666362864775460604089535377456991567871
Offset: 1

Views

Author

Artur Jasinski, Dec 09 2007

Keywords

Links

Crossrefs

Subsequence of A065341.
Cf. A000225, A054723, A134852, A135975, A135976, A135977, A135979.

Programs

  • Maple
    A135386 := proc(n) local i;
i := 2^(ithprime(n))-1:
if (nops(numtheory[factorset](i)) > 3) then
   RETURN (i)
fi: end: seq(A135386(n), n=1..37); # Jani Melik, Feb 09 2011
  • Mathematica
    k = {}; Do[If[ ! PrimeQ[2^Prime[n] - 1], c = FactorInteger[2^Prime[n] - 1]; d = Length[c]; If[d >3, AppendTo[k, 2^Prime[n] - 1]]], {n, 1, 40}]; k
Showing 1-6 of 6 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.