|
%I #21 Sep 06 2021 16:53:17
%S 89,178481,2089,616318177,164511353,2099863,13264529,20394401,
%T 3203431780337,761838257287,212885833,9361973132609,1113491139767,
%U 57912614113275649087721,13842607235828485645766393,341117531003194129,3976656429941438590393
%N Largest prime factor of composite Mersenne numbers.
%H Amiram Eldar, <a href="/A136031/b136031.txt">Table of n, a(n) for n = 1..183</a>
%F a(n) >= A089158(n). - _R. J. Mathar_, May 01 2008
%t FactorInteger[2^#-1][[-1,1]]&/@Select[Prime[Range[40]],!PrimeQ[2^#-1]&] (* _Harvey P. Dale_, May 05 2012 *)
%t With[{c=Complement[Prime[Range[PrimePi[200]]],MersennePrimeExponent[ Range[ 15]]]},Table[ FactorInteger[ 2^p-1][[-1,1]],{p,c}]] (* _Harvey P. Dale_, Sep 06 2021 *)
%Y Cf. A049479, A016047, A003260, A136030.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 11 2007
%E Corrected by _Harvey P. Dale_, May 05 2012
|
