OFFSET
1,1
MATHEMATICA
a[n_] := 2^(2^(MersennePrimeExponent[n] + 1) - 3) - 1; Array[a, 4] (* Amiram Eldar, Jul 10 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Apr 13 2008
STATUS
approved
