Alternatively,
$Version
"8.0 for Mac OS X x86 (64-bit) (October 5, 2011)"
Clear[f]
f[n_Integer?(0 < # < 9 &)] = Sum[1/k, {k, 8}] - Sum[1/k, {k, n - 1}]
761/280 - HarmonicNumber[-1 + n]
Table[f[n] == Sum[1/k, {k, n, 8}], {n, 0, 9}] // Quiet
{f[0] == ComplexInfinity, True, True, True, True, True, True, True, True,
f[9] == 0}
Bob Hanlon
On Mon, May 13, 2013 at 3:48 AM, Bob Hanlon <
hanlo...@gmail.com> wrote:
>
> Without giving n a specific value in your definition, Mathematica has no
> way of knowing that you intend n to be an integer in the range [1, 8].
>
>
> $Version
>
>
> "8.0 for Mac OS X x86 (64-bit) (October 5, 2011)"
>
>
> f1[n_Integer?(0 < # < 9 &)] :=
> Sum[1/k, {k, n, 8}]
>
>
> f2[n_Integer?(0 < # < 9 &)] :=
> Sum[1/k, {k, 8, n, -1}]
>
>
> Table[f1[n] == f2[n] == Sum[1/k, {k, n, 8}], {n, 0, 9}] // Quiet
>
>
> {f1[0] == f2[0] ==
> ComplexInfinity, True, True, True, True, True, True, True, True,
> f1[9] == f2[9] == 0}
>
>
>
> Bob Hanlon
>
>
>
>