A175550 Period of the decimal expansion of 1/F as F runs through the Fibonacci numbers greater than 1 and not divisible by 2 or 5.

1, 6, 6, 44, 232, 84, 138, 133, 336, 396, 28656, 3016, 84, 514228, 335824, 152214, 67830, 4440, 261744, 504628, 108373609, 47124, 3295440, 2971215072, 49349664, 45240, 4438362040, 203028, 3599596, 10841042784, 104340657248, 252736776688

Offset: 1

Author

Michel Lagneau, Jun 26 2010

Keywords

• nonn
• base

Comments

The Fibonacci numbers contributing to this sequence are {3, 13, 21, 89, 233, ...}, i.e., Fibonacci(k) for k = 4, 7, 8, 11, 13, ... (A229829, starting with A229829(3)).

Examples

			For n = 1, the 1st Fibonacci number > 1 and coprime to 2 and 5 is Fibonacci(4) = 3, and period(1/3) = 1, so a(1) = 1.
For n = 2, the 2nd Fibonacci number > 1 and coprime to 2 and 5 is Fibonacci(7) = 13, and period (1/13) = 6, so a(2) = 6.
		

Crossrefs

Cf. A000045, A175561, A178505, A045572, A002329, A229829.

Programs

Maple

with(combinat, fibonacci):nn:= 50:for q from 1 to nn do:n:=fibonacci(q):indic:=0:for p from 1 to n do:if irem(10^p, n) = 1 and gcd(n, 5) = 1 and indic=0 then printf(`%d, `, p):indic:=1:else fi:od:od:

Mathematica

Table[MultiplicativeOrder[10, n/Times @@ ({2, 5}^IntegerExponent[n, {2, 5}])], {n, Select[Fibonacci[Range[3, 70]], CoprimeQ[#, 10] &]}] (* Amiram Eldar, May 27 2024 *)

Extensions

a(15) onwards from Robert G. Wilson v, Jun 29 2010