A074699 a(n) = tau(Fibonacci(24*2^n))/(24*2^n) where tau(x) is the number of divisors of x (A000005(x)).
3, 7, 32, 144, 5120, 180224, 3145728, 3489660928
Offset: 0
Programs
-
Magma
[NumberOfDivisors(Fibonacci(24*2^n))/(24*2^n): n in [0..5]]; // Vincenzo Librandi, Sep 11 2017
-
Maple
with(numtheory): with(combinat): a:=n->tau(fibonacci(24*2^n))/(24*2^n): seq(a(n),n=0..4); # Emeric Deutsch, Jan 30 2006
-
Mathematica
Table[DivisorSigma[0, Fibonacci[24 2^n]] / (24 2^n), {n, 0, 5}] (* Vincenzo Librandi, Sep 11 2017 *)
-
PARI
a(n) = numdiv(fibonacci(24*2^n))/(24*2^n); \\ Michel Marcus, Sep 10 2017
Extensions
a(5) from Eric Rowland, Jun 18 2017
a(6)-a(7) from Amiram Eldar, Sep 03 2019 (using FactorDB)
Comments