A261598 - OEIS

%I #17 Feb 19 2024 03:35:43

%S 0,1,1,2,3,5,8,13,21,34,55,29,48,159,102,100,432,962,172,369,2340,156,

%T 2420,14763,29952,25000,18447,67716,22848,63800,21420,217854,2250,

%U 35264,34944,99330,14364,1300500,0,8726016,2303910,544272,9728000,5615610,8419950

%N Product of sexagesimal digits of Fibonacci numbers in base-60 representation.

%C a(n) is the product of the terms in the n-th row of table A261575.

%C Conjecture: a(n) = 0 for n > 3329 (empirically checked up to 36000).

%H Reinhard Zumkeller, <a href="/A261598/b261598.txt">Table of n, a(n) for n = 0..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Sexagesimal.html">Sexagesimal</a>

%H Wikipedia, <a href="http://www.wikipedia.org/wiki/Sexagesimal">Sexagesimal</a>

%p a:= n-> mul(i, i=convert((<<0|1>, <1|1>>^n)[1, 2], base, 60)):

%p seq(a(n), n=0..44);  # _Alois P. Heinz_, Jan 22 2022

%t Apply[Times, IntegerDigits[Fibonacci[Range[0, 50]], 60], {1}] (* _Paolo Xausa_, Feb 19 2024 *)

%o (Haskell)

%o a261598 = product . a261575_row

%o (PARI) a(n) = if (n, vecprod(digits(fibonacci(n), 60)), 0); \\ _Michel Marcus_, Jan 22 2022

%Y Cf. A261575, A000045, A246558, A261587.

%K nonn,look,base

%O 0,4

%A _Reinhard Zumkeller_, Sep 09 2015