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