A099405 Decimal part of 1/a(n) starts with Fibonacci(n) (leading zeros excluded).

6, 6, 4, 3, 2, 12, 72, 46, 29, 18, 112, 69, 428, 265, 1637, 1013, 626, 3869, 23913, 1478, 9135, 5646, 34895, 215662, 133288, 82377, 509116, 314652, 1944656, 1201864, 7427931, 4590715, 2837219, 17534976, 10837212, 66977653, 41394468, 25583188

Offset

1,1

Links

Table of n, a(n) for n=1..38.

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

Sequence in context: A255188 A164510 A019957 * A090966 A254153 A255438

Adjacent sequences: A099402 A099403 A099404 * A099406 A099407 A099408

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