|
%I #13 Mar 07 2023 11:53:15
%S 1,1,1,3,5,1,13,21,17,55,89,9,233,377,305,987,1597,323,4181,6765,5473,
%T 17711,28657,1449,75025,121393,98209,317811,514229,104005,1346269,
%U 2178309,1762289,5702887,9227465,933147,24157817,39088169,31622993
%N Largest odd divisors of Fibonacci numbers.
%H Harvey P. Dale, <a href="/A174883/b174883.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = F(n) / A060865(n). - _Franklin T. Adams-Watters_, Jan 24 2012
%t f[n_]:=Module[{x=n},While[EvenQ[x],x/=2];x]; Table[f[Fibonacci[n]],{n,1,5!}]
%t lod[n_]:=Module[{fib=Fibonacci[n]},fib/2^IntegerExponent[fib,2]]; Array[lod,40] (* _Harvey P. Dale_, Dec 14 2011 *)
%t Table[Select[Divisors[Fibonacci[n]],OddQ][[-1]],{n,40}] (* _Harvey P. Dale_, Mar 07 2023 *)
%Y Cf. A000265
%K nonn
%O 1,4
%A _Vladimir Joseph Stephan Orlovsky_, Mar 31 2010
|
