A105517 -id:A105517 - cp's OEIS frontend

A105511 Number of times 1 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

0, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 7, 7, 7, 7, 8, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 12, 13, 13, 13, 13, 14, 15, 15, 15, 15, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 18, 18, 18, 18, 19, 20, 20, 20, 20, 21, 22, 22, 22, 22, 23, 23, 23, 23, 23, 24

Offset: 0

Reinhard Zumkeller, Apr 11 2005

Winston de Greef, Table of n, a(n) for n = 0..10000

Cf. A000030, A000045, A008963, A105501.

Cf. A105512, A105513, A105514, A105515, A105516, A105517, A105518, A105519.

Accumulate[Table[If[IntegerDigits[Fibonacci[n]][[1]] == 1, 1, 0], {n, 0, 100}]] (* Amiram Eldar, Jan 12 2023 *)

(leadingdigit(n, b=10) = n \ 10^logint(n, b));
(isok(n) = leadingdigit(fibonacci(n))==1);
(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

a(n) = #{k: A008963(k) = 1 and 0<=k<=n};
a(A105501(n)) = a(A105501(n) - 1) + 1;
n = a(n) + A105512(n) + A105513(n) + A105514(n) + A105515(n) + A105516(n) + A105517(n) + A105518(n) + A105519(n).
a(n) ~ log_10(2) * n. - Amiram Eldar, Jan 12 2023

A105519 Number of times 9 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5

Offset: 0

Reinhard Zumkeller, Apr 11 2005

Winston de Greef, Table of n, a(n) for n = 0..10000

Cf. A000030, A000045, A008963, A105509.

Cf. A105511, A105512, A105513, A105514, A105515, A105516, A105517, A105518.

Table[If[First[IntegerDigits[Fibonacci[n]]]==9,1,0],{n,0,110}]// Accumulate (* Harvey P. Dale, Nov 27 2018 *)

(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

a(n) = #{k: A008963(k) = 9 and 0<=k<=n};
a(A105509(n)) = a(A105509(n) - 1) + 1;
n = A105511(n) + A105512(n) + A105513(n) + A105514(n) + A105515(n) + A105516(n) + A105517(n) + A105518(n) + a(n).
a(n) ~ (1 - log_10(9)) * n. - Amiram Eldar, Jan 12 2023

A105512 Number of times 2 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Original entry on oeis.org

0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16

Offset: 0

Reinhard Zumkeller, Apr 11 2005

Winston de Greef, Table of n, a(n) for n = 0..10000

Cf. A000030, A000045, A008963, A105502.

Cf. A105511, A105513, A105514, A105515, A105516, A105517, A105518, A105519.

Accumulate[Table[If[IntegerDigits[Fibonacci[n]][[1]] == 2, 1, 0], {n, 0, 100}]] (* Amiram Eldar, Jan 12 2023 *)

(leadingdigit(n, b=10) = n \ 10^logint(n, b));
(isok(n) = leadingdigit(fibonacci(n))==2);
(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

a(n) = #{k: A008963(k) = 2 and 0<=k<=n};
a(A105502(n)) = a(A105502(n) - 1) + 1;
n = A105511(n) + a(n) + A105513(n) + A105514(n) + A105515(n) + A105516(n) + A105517(n) + A105518(n) + A105519(n).
a(n) ~ log_10(3/2) * n. - Amiram Eldar, Jan 12 2023

A105513 Number of times 3 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11

Offset: 0

Reinhard Zumkeller, Apr 11 2005

Winston de Greef, Table of n, a(n) for n = 0..10000

Cf. A000030, A000045, A008963, A105503.

Cf. A105511, A105512, A105514, A105515, A105516, A105517, A105518, A105519.

Accumulate[Table[If[IntegerDigits[Fibonacci[n]][[1]] == 3, 1, 0], {n, 0, 100}]] (* Amiram Eldar, Jan 12 2023 *)

(leadingdigit(n, b=10) = n \ 10^logint(n, b));
(isok(n) = leadingdigit(fibonacci(n))==3);
(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

a(n) = #{k: A008963(k) = 3 and 0<=k<=n};
a(A105503(n)) = a(A105503(n) - 1) + 1;
n = A105511(n) + A105512(n) + a(n) + A105514(n) + A105515(n) + A105516(n) + A105517(n) + A105518(n) + A105519(n).
a(n) ~ log_10(4/3) * n. - Amiram Eldar, Jan 12 2023

A105514 Number of times 4 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9

Offset: 0

Reinhard Zumkeller, Apr 11 2005

Winston de Greef, Table of n, a(n) for n = 0..10000

Cf. A000030, A000045, A008963, A105504.

Cf. A105511, A105512, A105513, A105515, A105516, A105517, A105518, A105519.

Accumulate[Table[If[IntegerDigits[Fibonacci[n]][[1]] == 4, 1, 0], {n, 0, 100}]] (* Amiram Eldar, Jan 12 2023 *)

(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

a(n) = #{k: A008963(k) = 4 and 0<=k<=n};
a(A105504(n)) = a(A105504(n) - 1) + 1;
n = A105511(n) + A105512(n) + A105513(n) + a(n) + A105515(n) + A105516(n) + A105517(n) + A105518(n) + A105519(n).
a(n) ~ log_10(5/4) * n. - Amiram Eldar, Jan 12 2023

A105515 Number of times 5 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9

Offset: 0

Reinhard Zumkeller, Apr 11 2005

Winston de Greef, Table of n, a(n) for n = 0..10000

Cf. A000030, A000045, A008963, A105505.

Cf. A105511, A105512, A105513, A105514, A105516, A105517, A105518, A105519.

Accumulate[If[First[IntegerDigits[#]]==5,1,0]&/@Fibonacci[Range[0,110]]] (* Harvey P. Dale, Nov 02 2014 *)

(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

a(n) = #{k: A008963(k) = 5 and 0<=k<=n};
a(A105505(n)) = a(A105505(n) - 1) + 1;
n = A105511(n) + A105512(n) + A105513(n) + A105514(n) + a(n) + A105516(n) + A105517(n) + A105518(n) + A105519(n).
a(n) ~ log_10(6/5) * n. - Amiram Eldar, Jan 12 2023

A105516 Number of times 6 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6

Offset: 0

Reinhard Zumkeller, Apr 11 2005

Winston de Greef, Table of n, a(n) for n = 0..10000

Cf. A000030, A000045, A008963, A105506.

Cf. A105511, A105512, A105513, A105514, A105515, A105517, A105518, A105519.

Prepend[Accumulate[If[First[IntegerDigits[#]]==6,1,0]&/@Fibonacci[ Range[ 110]]],0] (* Harvey P. Dale, Feb 18 2011 *)

(leadingdigit(n, b=10) = n \ 10^logint(n, b));
(isok(n) = leadingdigit(fibonacci(n))==6);
(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

a(n) = #{k: A008963(k) = 6 and 0<=k<=n};
a(A105506(n)) = a(A105506(n) - 1) + 1;
n = A105511(n) + A105512(n) + A105513(n) + A105514(n) + A105515(n) + a(n) + A105517(n) + A105518(n) + A105519(n).
a(n) ~ log_10(7/6) * n. - Amiram Eldar, Jan 12 2023

A105518 Number of times 8 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7

Offset: 0

Reinhard Zumkeller, Apr 11 2005

Winston de Greef, Table of n, a(n) for n = 0..10000

Cf. A000030, A000045, A008963, A105508.

Cf. A105511, A105512, A105513, A105514, A105515, A105516, A105517, A105519.

Accumulate[Table[If[IntegerDigits[Fibonacci[n]][[1]] == 8, 1, 0], {n, 0, 100}]] (* Amiram Eldar, Jan 12 2023 *)

(leadingdigit(n, b=10) = n \ 10^logint(n, b));
(isok(n) = leadingdigit(fibonacci(n))==8);
(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

a(n) = #{k: A008963(k) = 8 and 0<=k<=n};
a(A105508(n)) = a(A105508(n) - 1) + 1;
n = A105511(n) + A105512(n) + A105513(n) + A105514(n) + A105515(n) + A105516(n) + A105517(n) + a(n) + A105519(n).
a(n) ~ log_10(9/8) * n. - Amiram Eldar, Jan 12 2023

A105507 Numbers m such that 7 is the leading digit of the n-th Fibonacci number in decimal representation.

Original entry on oeis.org

25, 44, 49, 68, 92, 111, 116, 135, 159, 178, 183, 202, 226, 245, 250, 269, 293, 312, 317, 336, 360, 379, 384, 403, 427, 446, 470, 489, 494, 513, 537, 556, 561, 580, 604, 623, 628, 647, 671, 690, 695, 714, 738, 757, 762, 781, 805, 824, 829, 848, 872, 891, 915

Offset: 1

Reinhard Zumkeller, Apr 11 2005

A008963(a(n)) = 7; A105517(a(n)) = A105517(a(n) - 1) + 1.

			a(10)=178: A008963(178) = A000030(A000045(178)) =
A000030(7084593923980518516849609894969925639) = 7.

Cf. A000030, A000045, A072709, A105501, A105502, A105503, A105504, A105505, A105506, A105508, A105509.

Flatten[Position[Fibonacci[Range[1000]],?(IntegerDigits[#][[1]]==7&)]] (* _Harvey P. Dale, Nov 20 2015 *)

is(n)=digits(fibonacci(n))[1]==7 \\ Charles R Greathouse IV, Oct 07 2016

a(n) ~ kn by the equidistribution theorem, where k = log(10)/(log(8) - log(7)) = 17.24377.... - Charles R Greathouse IV, Oct 07 2016

cp's OEIS Frontend

A105511 Number of times 1 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A105519 Number of times 9 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A105512 Number of times 2 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A105513 Number of times 3 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A105514 Number of times 4 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A105515 Number of times 5 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A105516 Number of times 6 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A105518 Number of times 8 is the leading digit of the first n+1 Fibonacci numbers in decimal representation.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI