|
| |
|
|
A090541
|
|
Floor[{sum (r), r = 1 to n}*{sum (1/r), r = 1 to n}].
|
|
0
| |
|
|
1, 4, 11, 20, 34, 51, 72, 97, 127, 161, 199, 242, 289, 341, 398, 459, 526, 597, 674, 755, 842, 933, 1030, 1132, 1240, 1352, 1470, 1594, 1723, 1857, 1997, 2142, 2293, 2450, 2612, 2780, 2953, 3132, 3317, 3508, 3704, 3907, 4115, 4328, 4548, 4774, 5006, 5243
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| For large n, a(n) = floor[ n(n+1)/2}*{ln(n)+ .5772...,(Euler's constant}].
|
|
|
MAPLE
| a:=n->floor(sum(k, k=1..n)*sum(1/k, k=1..n)):seq(a(n), n=1..56); (Deutsch)
|
|
|
CROSSREFS
| Sequence in context: A024982 A038425 A046279 * A038426 A008235 A038413
Adjacent sequences: A090538 A090539 A090540 * A090542 A090543 A090544
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Dec 09 2003
|
|
|
EXTENSIONS
| More terms from Emeric Deutsch (deutsch(AT)duke.poly.edu), Apr 18 2005
|
| |
|
|
