|
|
A063839
|
|
Dirichlet convolution of Fibonacci numbers with factorials.
|
|
1
|
|
|
1, 3, 8, 29, 125, 738, 5053, 40371, 362926, 3628985, 39916889, 479002546, 6227021033, 87178296643, 1307674368880, 20922789929421, 355687428097597, 6402373706095020, 121645100408836181, 2432902008180276155
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Table[Sum[Fibonacci[d]*(n/d)!, {d, Divisors[n]}], {n, 1, 20}] (* Vaclav Kotesovec, Jan 28 2019 *)
|
|
PROG
|
(PARI) for(n=1, 23, print(sumdiv(n, d, fibonacci(d)*(n/d)!)))
(PARI) { for (n=1, 100, write("b063839.txt", n, " ", sumdiv(n, d, fibonacci(d)*(n/d)!)) ) } \\ Harry J. Smith_, Sep 01 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|