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,4

Links

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

Formula

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

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 *)

Crossrefs

Cf. A000265

Sequence in context: A344437 A143250 A221494 * A084833 A204020 A265649

Adjacent sequences: A174880 A174881 A174882 * A174884 A174885 A174886

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 31 2010

Status

approved