|
%I #6 Mar 15 2015 20:21:26
%S 6,6,4,3,2,12,72,46,29,18,112,69,428,265,1637,1013,626,3869,23913,
%T 1478,9135,5646,34895,215662,133288,82377,509116,314652,1944656,
%U 1201864,7427931,4590715,2837219,17534976,10837212,66977653,41394468,25583188
%N Decimal part of 1/a(n) starts with Fibonacci(n) (leading zeros excluded).
%e a(1)= 6 -> 1/6=0.{1}666666...
%e a(2)= 6 -> 1/6=0.{1}666666...
%e a(3)= 4 -> 1/4=0.{2}500000...
%e a(4)= 3 -> 1/3=0.{3}333333...
%e a(5)= 2 -> 1/2=0.{5}000000...
%e a(6)=12 -> 1/12=0.0{8}33333...
%e a(7)=72 -> 1/72=0.0{13}8888...
%e a(25)=133288 -> 1/133288=0.00000{75025}508673 and Fib(25) is 75025
%t f[n_] := Block[{fib = Fibonacci[n], k = 2, l = Floor[ Log[10, Fibonacci[n]] + 1]}, While[fib != FromDigits[ Take[ RealDigits[1/k, 10, 24][[1]], l]], k++ ]; k]; Table[ f[n], {n, 35}] (* _Robert G. Wilson v_, Nov 19 2004 *)
%K easy,nonn,base
%O 1,1
%A _Gil Broussard_, Nov 17 2004
%E a(32)-a(38) from _Robert G. Wilson v_, Nov 19 2004
|
