|
|
A261607
|
|
Initial digit of Fibonacci number F(n) in base 60.
|
|
4
|
|
|
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 1, 2, 3, 6, 10, 16, 26, 43, 1, 1, 3, 4, 7, 12, 20, 33, 54, 1, 2, 3, 6, 10, 16, 26, 42, 1, 1, 3, 4, 7, 12, 20, 33, 54, 1, 2, 3, 6, 10, 16, 26, 42, 1, 1, 2, 4, 7, 12, 20, 33, 53, 1, 2, 3, 6, 9, 16, 25, 42, 1, 1, 2, 4, 7, 12
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = Sum_{d=1..59} d*log(1+1/d)/log(60) = 13.92958... . - Amiram Eldar, Jan 12 2023
|
|
MATHEMATICA
|
IntegerDigits[Fibonacci[Range[0, 75]], 60][[All, 1]] (* Michael De Vlieger, Jan 22 2022 *)
|
|
PROG
|
(Haskell)
a261607 = last . a261575_row
(PARI) a(n) = if (n, digits(fibonacci(n), 60)[1], 0); \\ Michel Marcus, Jan 22 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|