OFFSET
1,1
COMMENTS
As of August 6, 2018, GIMPS reports that all Mersenne primes through the 47th have been positively identified, i.e., that there are no further such primes below the 47th. Thus, the sequence through a(47), i.e., through the term 500, is complete. Additional terms (169, 451, 109) are correct but it is still possible that more terms may be found above a(47) but below a(50). [Harvey P. Dale, Jul 17 2011] [Updated by Ivan Panchenko, Aug 06 2018]
LINKS
Jan Munch Pedersen, Known Perfect Numbers [From Steven Bi (chenhsi(AT)stanford.edu), Jan 18 2009] [Replaced with Wayback Machine link by Felix Fröhlich, Aug 04 2018]
Omar E. Pol, Los numeros perfectos
MATHEMATICA
f[n_] := Block[{e, p, mpe = MersennePrimeExponent@ n}, p = (2^mpe - 1) 2^(mpe - 1); e = IntegerLength@ p - 3; If[e < 1, p, Quotient[p, 10^e]]]; Array[f, 44] (* Robert G. Wilson v, Aug 06 2018 *)
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Omar E. Pol, Apr 02 2008
EXTENSIONS
a(15)-a(31) added by Steven Bi (chenhsi(AT)stanford.edu), Jan 18 2009
Corrected a(27) and added a(32) through a(40) by Harvey P. Dale, Jul 17 2011
Definition changed (inserting the word "even") and a(41)-a(47) added by Ivan Panchenko, Aug 04 2018
STATUS
approved