OFFSET
0,45
LINKS
Winston de Greef, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
Accumulate[Table[If[IntegerDigits[Fibonacci[n]][[1]]==7, 1, 0], {n, 0, 120}]] (* Harvey P. Dale, Apr 29 2018 *)
PROG
(PARI)
(leadingdigit(n, b=10) = n \ 10^logint(n, b));
(isok(n) = leadingdigit(fibonacci(n))==7);
(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