OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..100
FORMULA
a(n) ~ n!. - Vaclav Kotesovec, Jan 28 2019
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
Jason Earls, Aug 25 2001
STATUS
approved