login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%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