|
%I #39 Apr 13 2024 12:32:33
%S 1,1,2,2,2,4,2,4,4,4,2,15,2,4,8,8,2,16,4,16,8,4,2,72,6,4,16,16,2,64,4,
%T 16,8,4,8,160,8,8,8,64,4,64,2,32,32,8,2,336,8,48,8,16,4,128,16,96,32,
%U 8,4,960,4,8,32,64,8,64,8,32,32,128,4,1536,4,16,48,32,16,128,4,512,128,8
%N Number of divisors of Fibonacci(n).
%H Amiram Eldar, <a href="/A063375/b063375.txt">Table of n, a(n) for n = 1..1408</a> (terms 1..1000 from T. D. Noe using Blair Kelly's data)
%H Blair Kelly, <a href="http://mersennus.net/fibonacci/">Fibonacci and Lucas Factorizations</a>.
%H Florian Luca, <a href="https://www.fq.math.ca/Scanned/37-3/luca.pdf">Arithmetic Functions of Fibonacci Numbers</a>, The Fibonacci Quarterly, Vol. 37, No. 3 (1999), pp. 265-268.
%F a(n) = A000005(A000045(n)). - _Omar E. Pol_, Dec 20 2008
%F a(n) >= A000045(A000005(n)), with equality if and only if n = 1, 2 or 4 (Luca, 1999). - _Amiram Eldar_, Jan 12 2022
%t Table[Length[Divisors[Fibonacci[n]]], {n, 120}] (* _Vladimir Joseph Stephan Orlovsky_, Jul 01 2011 *)
%t Table[DivisorSigma[0, Fibonacci[n]], {n, 1, 100}] (* _Vaclav Kotesovec_, Feb 13 2019 *)
%o (PARI) j=[]; for(n=1,150,j=concat(j,numdiv(fibonacci(n)))); j
%o (PARI) for (n = 1, 466, write("b063375.txt", n, " ", numdiv(fibonacci(n)))) \\ _Harry J. Smith_, Aug 20 2009
%Y Cf. A000005, A000045.
%K nonn,changed
%O 1,3
%A _Jason Earls_, Jul 23 2001
|
