OFFSET
0,25
LINKS
Winston de Greef, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
Accumulate[Table[If[IntegerDigits[Fibonacci[n]][[1]] == 4, 1, 0], {n, 0, 100}]] (* Amiram Eldar, Jan 12 2023 *)
PROG
(PARI)
(leadingdigit(n, b=10) = n \ 10^logint(n, b));
(isok(n) = leadingdigit(fibonacci(n))==4);
(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