A135977
Mersenne composites (A065341) with exactly 3 prime factors.
Original entry on oeis.org
536870911, 8796093022207, 140737488355327, 9007199254740991, 2361183241434822606847, 9444732965739290427391, 604462909807314587353087
Offset: 1
-
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
A089159
If Mersenne numbers have 3 or more factors, then list the third factor.
Original entry on oeis.org
2089, 2099863, 13264529, 20394401, 212885833, 9361973132609, 1113491139767, 65993, 165799, 1654058017289, 110211473, 70084436712553223, 1489459109360039866456940197095433721664951999121, 7648337, 39940132241, 14732265321145317331353282383
Offset: 1
The 10th Mersenne number 2^29 - 1 = 233*1103*2089 and 2089 is the third prime factor. Notice these factors are congruent to 1 (mod 29).
-
mersenne2(n) = { c=0; forprime(x=2, n, c++; y = 2^x-1; f=ifactor(y); if(length(f)>=3, print1(f[3]","); ) ) }
ifactor(n) = { local(f,j,k,flist); flist=[]; f=Vec(factor(n)); for(j=1,length(f[1]), for(k = 1,f[2][j],flist = concat(flist,f[1][j]) ); ); return(flist) }
Showing 1-2 of 2 results.