|
%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
|
