|
%I #9 Jul 22 2020 11:39:23
%S 1,1,1,3,1,1,1,1,1,4,1,1,1,1,1,3,1,1,1,1,1,5,2,1,1,1,1,3,1,1,1,1,1,4,
%T 1,1,1,1,1,3,1,1,1,1,1,6,1,2,1,1,1,3,1,2,1,1,1,4,1,1,1,1,1,3,1,1,1,1,
%U 1,5,1,1,2,1,1,3,1,1,1,1,1,4,1,1,1,1,1,3,2,1,1,1,1,7,1,1,1,2,1,3,1,1,1,1,1
%N Highest exponent occurring in the prime factorization of Fibonacci(n).
%e a(12) = 4 since Fibonacci(12) = 144 = 2^4 * 3^2.
%p A051903 := proc(n) if n = 1 then 0 ; else max(seq(op(2,i),i=ifactors(n)[2])) ; fi ; end: A135939 := proc(n) A051903(combinat[fibonacci](n)) ; end: seq(A135939(n),n=3..120) ; # _R. J. Mathar_, Mar 16 2008
%t f[n_]:=Max[Last/@FactorInteger[n]];Table[f[Fibonacci[n]],{n,3,5!}] (* _Vladimir Joseph Stephan Orlovsky_, Apr 10 2010 *)
%o (PARI) for(n=3,200,print1(vecmax(factor(fibonacci(n))[,2])",")) \\ Yolinda (yoliahmed33(AT)yandex.ru), Mar 27 2008
%K nonn
%O 3,4
%A _Colm Mulcahy_, Mar 04 2008
%E More terms from _R. J. Mathar_ and Yolinda (yoliahmed33(AT)yandex.ru), Mar 16 2008
|
