OFFSET
1,1
FORMULA
MATHEMATICA
a[n_] := Times @@ IntegerDigits[MersennePrimeExponent[n]]; Array[a, 48] (* Amiram Eldar, Oct 16 2024 *)
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Boris Hostnik (megpplus(AT)siol.net), Aug 04 2009
EXTENSIONS
a(38)-a(39) corrected and a(40)-a(48) added by Amiram Eldar, Oct 16 2024
STATUS
approved