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

%I #15 Jan 22 2022 16:49:11

%S 0,1,1,2,3,5,8,13,21,34,55,30,26,56,23,20,43,63,47,51,98,31,70,101,

%T 112,95,89,125,96,103,81,125,29,95,65,101,48,149,138,169,130,122,134,

%U 138,154,174,151,148,122,152,156,131,169,241,233,179,235,178,236

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

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

%H Reinhard Zumkeller, <a href="/A261587/b261587.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-> add(i, i=convert((<<0|1>, <1|1>>^n)[1, 2], base, 60)):

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

%t Table[Total[IntegerDigits[n,60]],{n,Fibonacci[Range[0,60]]}] (* _Harvey P. Dale_, Aug 02 2019 *)

%o (Haskell)

%o a261587 = sum . a261575_row

%o (PARI) a(n) = sumdigits(fibonacci(n), 60); \\ _Michel Marcus_, Jan 22 2022

%Y Cf. A261575, A000045, A004090, A261598.

%K nonn,base

%O 0,4

%A _Reinhard Zumkeller_, Sep 09 2015