A246558 Product of the digits of the n-th Fibonacci number.

0, 1, 1, 2, 3, 5, 8, 3, 2, 12, 25, 72, 16, 18, 147, 0, 504, 315, 320, 32, 1260, 0, 49, 3360, 3456, 0, 162, 1728, 168, 720, 0, 7776, 0, 33600, 0, 30240, 0, 15680, 0, 311040, 0, 0, 326592, 435456, 0, 0, 0, 0, 0, 0, 0, 0, 0, 102060, 3951360, 24883200, 1411200

Offset: 0

Author

Indrani Das, Nov 12 2014

Keywords

• nonn
• base
• easy
• less

Comments

a(n) > 0 iff n in A076564.

Probably, the last nonzero term is a(184). - Giovanni Resta, Jul 14 2015

Examples

			Fibonacci(7) = 13, thus a(7) = 1*3 = 3.
		

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A000045, A004090, A076564.

Cf. A007954, A259773.

Cf. A261598.

Programs

Haskell

a246558 = a007954 . a000045 -- Reinhard Zumkeller, Nov 17 2014

Magma

[0] cat [&*Intseq(Fibonacci(n)): n in [1..100]]; // Vincenzo Librandi, Jan 04 2020

Mathematica

Array[Times@@IntegerDigits@Fibonacci[#]&, 100, 0] (* Vincenzo Librandi, Jan 04 2020 *)

PARI

a(n) = if (n, vecprod(digits(fibonacci(n))), 0); \\ Michel Marcus, Feb 11 2025

Formula

a(n) = A007954(A000045(n)). - Reinhard Zumkeller, Nov 17 2014