OFFSET
0,11
LINKS
Winston de Greef, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
Accumulate[If[First[IntegerDigits[#]]==5, 1, 0]&/@Fibonacci[Range[0, 110]]] (* Harvey P. Dale, Nov 02 2014 *)
PROG
(PARI)
(leadingdigit(n, b=10) = n \ 10^logint(n, b));
(isok(n) = leadingdigit(fibonacci(n))==5);
(lista(n)=my(a=vector(1+n), r=0); for (i=1, n, r+=isok(i); a[1+i]=r); a) \\ Winston de Greef, Mar 17 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 11 2005
STATUS
approved