A063839 - OEIS

%I #16 Jan 28 2019 08:52:14

%S 1,3,8,29,125,738,5053,40371,362926,3628985,39916889,479002546,

%T 6227021033,87178296643,1307674368880,20922789929421,355687428097597,

%U 6402373706095020,121645100408836181,2432902008180276155

%N Dirichlet convolution of Fibonacci numbers with factorials.

%H Harry J. Smith, <a href="/A063839/b063839.txt">Table of n, a(n) for n = 1..100</a>

%F a(n) ~ n!. - _Vaclav Kotesovec_, Jan 28 2019

%t Table[Sum[Fibonacci[d]*(n/d)!, {d, Divisors[n]}], {n, 1, 20}] (* _Vaclav Kotesovec_, Jan 28 2019 *)

%o (PARI) for(n=1,23,print(sumdiv(n,d,fibonacci(d)*(n/d)!)))

%o (PARI) { for (n=1, 100, write("b063839.txt", n, " ", sumdiv(n, d, fibonacci(d)*(n/d)!)) ) } \\ Harry J. Smith_, Sep 01 2009

%Y Cf. A000045, A000142.

%K easy,nonn

%O 1,2

%A _Jason Earls_, Aug 25 2001