A175562 The periodic part of the decimal expansion of 1/Fibonacci(n) with any initial zeros placed at the end of the cycle.
0, 0, 0, 3, 0, 0, 769230, 476190, 2941176470588235, 18, 11235955056179775280898876404494382022471910, 4
Offset: 1
Examples
1/Fibonacci(7) = 1/13 = 0.0769230769230769230... and digit-cycle is 769230, so a(7)= 769230.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..22
Crossrefs
Cf. A036275.
Programs
-
Mathematica
fc[n_] := Block[{q}, q = Last[First[RealDigits[1/Fibonacci[n]]]]; If[IntegerQ[q], q = {}]; FromDigits[q]]; Table[fc[n], {n, 40}] (* see the Mathematica program in A036275 *)
Extensions
Name and comment corrected by T. D. Noe, Jul 06 2010
Comments