|
%I #14 Mar 17 2023 11:55:00
%S 3,8,13,18,23,32,37,42,47,51,56,61,66,75,80,85,90,99,104,109,114,118,
%T 123,128,133,142,147,152,157,166,171,176,185,190,195,200,209,214,219,
%U 224,233,238,243,252,257,262,267,276,281,286,291,295,300,305,310,319
%N Numbers m such that 2 is the leading digit of the m-th Fibonacci number in decimal representation.
%C A008963(a(n)) = 2; A105512(a(n)) = A105512(a(n) - 1) + 1.
%H Winston de Greef, <a href="/A105502/b105502.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) ~ kn by the equidistribution theorem, where k = log(10)/(log(3) - log(2)) = 5.67887.... - _Charles R Greathouse IV_, Oct 07 2016
%e a(10)=51: A008963(51) = A000030(A000045(51)) = A000030(20365011074) = 2.
%t Select[Range[400],First[IntegerDigits[Fibonacci[#]]]==2&] (* _Harvey P. Dale_, Jul 13 2015 *)
%o (PARI) is(n)=digits(fibonacci(n))[1]==2 \\ _Charles R Greathouse IV_, Oct 07 2016
%Y Cf. A000030, A000045, A072682, A105501, A105503, A105504, A105505, A105506, A105507, A105508, A105509.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Apr 11 2005
|
