OFFSET
1,1
MATHEMATICA
{#-2, #}&/@(2^MersennePrimeExponent[Range[10]])//Flatten (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 04 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Nov 27 2007
STATUS
approved