|
Search: id:A090541
|
|
|
| A090541 |
|
Floor[{sum (r), r = 1 to n}*{sum (1/r), r = 1 to n}]. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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 this_sequence A038426 A008235 A038413
Adjacent sequences: A090538 A090539 A090540 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
