cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A174883 Largest odd divisors of Fibonacci numbers.

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