Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 Oct 16 2024 09:22:37
%S 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,
%T 0,4032,1152,0,0,0,45360,12960,27440,23328,3024,0,102060,27216,0,0,
%U 97200,0,100800,158760,0,0,67200
%N a(n) = product of decimal digits of A000043(n).
%F a(n) = A007954(A000043(n)). - _Amiram Eldar_, Oct 16 2024
%t a[n_] := Times @@ IntegerDigits[MersennePrimeExponent[n]]; Array[a, 48] (* _Amiram Eldar_, Oct 16 2024 *)
%Y Cf. A000043, A007954.
%K base,nonn,more
%O 1,1
%A Boris Hostnik (megpplus(AT)siol.net), Aug 04 2009
%E a(38)-a(39) corrected and a(40)-a(48) added by _Amiram Eldar_, Oct 16 2024