%I #21 May 27 2024 07:14:35
%S 1,6,6,44,232,84,138,133,336,396,28656,3016,84,514228,335824,152214,
%T 67830,4440,261744,504628,108373609,47124,3295440,2971215072,49349664,
%U 45240,4438362040,203028,3599596,10841042784,104340657248,252736776688
%N 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.
%C 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)).
%e 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.
%e 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.
%p 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:
%t Table[MultiplicativeOrder[10, n/Times @@ ({2, 5}^IntegerExponent[n, {2, 5}])], {n, Select[Fibonacci[Range[3, 70]], CoprimeQ[#, 10] &]}] (* _Amiram Eldar_, May 27 2024 *)
%Y Cf. A000045, A175561, A178505, A045572, A002329, A229829.
%K nonn,base
%O 1,2
%A _Michel Lagneau_, Jun 26 2010
%E a(15) onwards from _Robert G. Wilson v_, Jun 29 2010