OFFSET
1,1
COMMENTS
Sequence consists entirely of integers.
First differences give A033885.
MATHEMATICA
f[n_] := 2Sum[(n + 1 - k)*Plus @@ (1/Floor[n/Divisors[k]]), {k, n}]; Table[ f[n], {n, 52}] (* Robert G. Wilson v, Nov 12 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 09 2004
EXTENSIONS
More terms from Robert G. Wilson v, Nov 12 2004
STATUS
approved