A174883 Largest odd divisors of Fibonacci numbers.

1, 1, 1, 3, 5, 1, 13, 21, 17, 55, 89, 9, 233, 377, 305, 987, 1597, 323, 4181, 6765, 5473, 17711, 28657, 1449, 75025, 121393, 98209, 317811, 514229, 104005, 1346269, 2178309, 1762289, 5702887, 9227465, 933147, 24157817, 39088169, 31622993

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Mar 31 2010

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000265

Programs

Mathematica

f[n_]:=Module[{x=n},While[EvenQ[x],x/=2];x]; Table[f[Fibonacci[n]],{n,1,5!}]
lod[n_]:=Module[{fib=Fibonacci[n]},fib/2^IntegerExponent[fib,2]]; Array[lod,40] (* Harvey P. Dale, Dec 14 2011 *)
Table[Select[Divisors[Fibonacci[n]],OddQ][[-1]],{n,40}] (* Harvey P. Dale, Mar 07 2023 *)

Formula

a(n) = F(n) / A060865(n). - Franklin T. Adams-Watters, Jan 24 2012