A261598 Product of sexagesimal digits of Fibonacci numbers in base-60 representation.
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 29, 48, 159, 102, 100, 432, 962, 172, 369, 2340, 156, 2420, 14763, 29952, 25000, 18447, 67716, 22848, 63800, 21420, 217854, 2250, 35264, 34944, 99330, 14364, 1300500, 0, 8726016, 2303910, 544272, 9728000, 5615610, 8419950
Offset: 0
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
- Eric Weisstein's World of Mathematics, Sexagesimal
- Wikipedia, Sexagesimal
Programs
-
Haskell
a261598 = product . a261575_row
-
Maple
a:= n-> mul(i, i=convert((<<0|1>, <1|1>>^n)[1, 2], base, 60)): seq(a(n), n=0..44); # Alois P. Heinz, Jan 22 2022
-
Mathematica
Apply[Times, IntegerDigits[Fibonacci[Range[0, 50]], 60], {1}] (* Paolo Xausa, Feb 19 2024 *)
-
PARI
a(n) = if (n, vecprod(digits(fibonacci(n), 60)), 0); \\ Michel Marcus, Jan 22 2022
Comments