OFFSET
1,1
EXAMPLE
a(1)= 6 -> 1/6=0.{1}666666...
a(2)= 6 -> 1/6=0.{1}666666...
a(3)= 4 -> 1/4=0.{2}500000...
a(4)= 3 -> 1/3=0.{3}333333...
a(5)= 2 -> 1/2=0.{5}000000...
a(6)=12 -> 1/12=0.0{8}33333...
a(7)=72 -> 1/72=0.0{13}8888...
a(25)=133288 -> 1/133288=0.00000{75025}508673 and Fib(25) is 75025
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Gil Broussard, Nov 17 2004
EXTENSIONS
a(32)-a(38) from Robert G. Wilson v, Nov 19 2004
STATUS
approved