A154908 Highly composite Fibonacci numbers.
1, 2, 8, 144, 2584, 46368, 14930352, 4807526976, 1548008755920, 498454011879264, 160500643816367088, 2880067194370816120, 51680708854858323072, 16641027750620563662096, 5358359254990966640871840
Offset: 1
Keywords
Examples
144 is in the sequence because it is a Fibonacci number with 15 divisors and all smaller Fibonacci numbers have fewer divisors. - _Emeric Deutsch_, Jan 20 2009
Links
- Amiram Eldar, Table of n, a(n) for n = 1..33
Programs
-
Maple
with(numtheory): with(combinat): a := proc (n) if n = 1 then 1 else if max(seq(tau(fibonacci(j)), j = 1 .. n-1)) < tau(fibonacci(n)) then fibonacci(n) else end if end if end proc: seq(a(n), n = 1 .. 170); # Emeric Deutsch, Jan 20 2009
-
Mathematica
DeleteDuplicates[{#,DivisorSigma[0,#]}&/@Fibonacci[Range[200]],GreaterEqual[#1[[2]],#2[[2]]]&][[;;,1]] (* Harvey P. Dale, Aug 10 2025 *)
Extensions
Extended by Emeric Deutsch, Jan 20 2009
Comments