A261587 Sum of sexagesimal digits of Fibonacci numbers in base-60 representation.

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 30, 26, 56, 23, 20, 43, 63, 47, 51, 98, 31, 70, 101, 112, 95, 89, 125, 96, 103, 81, 125, 29, 95, 65, 101, 48, 149, 138, 169, 130, 122, 134, 138, 154, 174, 151, 148, 122, 152, 156, 131, 169, 241, 233, 179, 235, 178, 236

Offset: 0

Author

Reinhard Zumkeller, Sep 09 2015

Keywords

• nonn
• base

Comments

a(n) is the sum of the n-th row of table A261575.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
• Eric Weisstein's World of Mathematics, Sexagesimal
• Wikipedia, Sexagesimal

Crossrefs

Cf. A261575, A000045, A004090, A261598.

Programs

Haskell

a261587 = sum . a261575_row

Maple

a:= n-> add(i, i=convert((<<0|1>, <1|1>>^n)[1, 2], base, 60)):
seq(a(n), n=0..60);  # Alois P. Heinz, Jan 22 2022

Mathematica

Table[Total[IntegerDigits[n,60]],{n,Fibonacci[Range[0,60]]}] (* Harvey P. Dale, Aug 02 2019 *)

PARI

a(n) = sumdigits(fibonacci(n), 60); \\ Michel Marcus, Jan 22 2022