A163821 a(n) = product of decimal digits of A000043(n).

2, 3, 5, 7, 3, 7, 9, 3, 6, 72, 0, 14, 10, 0, 126, 0, 32, 42, 120, 96, 3888, 324, 6, 1701, 0, 0, 4032, 1152, 0, 0, 0, 45360, 12960, 27440, 23328, 3024, 0, 102060, 27216, 0, 0, 97200, 0, 100800, 158760, 0, 0, 67200

Offset: 1

Author

Boris Hostnik (megpplus(AT)siol.net), Aug 04 2009

Keywords

• base
• nonn
• more

Crossrefs

Cf. A000043, A007954.

Programs

Mathematica

a[n_] := Times @@ IntegerDigits[MersennePrimeExponent[n]]; Array[a, 48] (* Amiram Eldar, Oct 16 2024 *)

Formula

a(n) = A007954(A000043(n)). - Amiram Eldar, Oct 16 2024

Extensions

a(38)-a(39) corrected and a(40)-a(48) added by Amiram Eldar, Oct 16 2024