OFFSET
0,36
LINKS
Winston de Greef, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
Table[If[First[IntegerDigits[Fibonacci[n]]]==9, 1, 0], {n, 0, 110}]// Accumulate (* Harvey P. Dale, Nov 27 2018 *)
PROG
(PARI)
(leadingdigit(n, b=10) = n \ 10^logint(n, b));
(isok(n) = leadingdigit(fibonacci(n))==9);
(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 18 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 11 2005
STATUS
approved