用程序列了一下 an 和 Sn
a[1] = 1;
Do[Which[EvenQ[n], a[n] = -a[n/2], OddQ[n],
a[n] = (-1)^((n + 3)/2) a[(n + 1)/2]], {n, 2, 1000}]
S[n_] := Sum[a[k], {k, 1, n}]
Table[a[n], {n, 1, 100}]
{1, -1, 1, 1, 1, -1, -1, -1, 1, -1, 1, 1, -1, 1, 1, 1, 1,
-1, 1, 1, 1, -1, -1, -1, -1, 1, -1, -1, 1, -1, -1, -1, 1, -1, 1, 1,
1, -1, -1, -1, 1, -1, 1, 1, -1, 1, 1, 1, -1, 1, -1, -1, -1, 1, 1, 1,
1, -1, 1, 1, -1, 1, 1, 1, 1, -1, 1, 1, 1, -1, -1, -1, 1, -1, 1, 1,
-1, 1, 1, 1, 1, -1, 1, 1, 1, -1, -1, -1, -1, 1, -1, -1, 1, -1, -1,
-1, -1, 1, -1, -1}
Table[S[n], {n, 1, 600}]
{1, 0, 1, 2, 3, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 4, 5, 4, 5, 6,
7, 6, 5, 4, 3, 4, 3, 2, 3, 2, 1, 0, 1, 0, 1, 2, 3, 2, 1, 0, 1, 0, 1,
2, 1, 2, 3, 4, 3, 4, 3, 2, 1, 2, 3, 4, 5, 4, 5, 6, 5, 6, 7, 8, 9, 8,
9, 10, 11, 10, 9, 8, 9, 8, 9, 10, 9, 10, 11, 12, 13, 12, 13, 14, 15,
14, 13, 12, 11, 12, 11, 10, 11, 10, 9, 8, 7, 8, 7, 6, 5, 6, 7, 8, 7,
8, 7, 6, 7, 6, 5, 4, 5, 4, 5, 6, 7, 6, 5, 4, 3, 4, 3, 2, 3, 2, 1, 0,
1, 0, 1, 2, 3, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 4, 5, 4, 5, 6, 7, 6, 5,
4, 3, 4, 3, 2, 3, 2, 1, 0, 1, 0, 1, 2, 3, 2, 1, 0, 1, 0, 1, 2, 1, 2,
3, 4, 3, 4, 3, 2, 1, 2, 3, 4, 5, 4, 5, 6, 5, 6, 7, 8, 7, 8, 7, 6, 5,
6, 7, 8, 7, 8, 7, 6, 7, 6, 5, 4, 3, 4, 3, 2, 1, 2, 3, 4, 5, 4, 5, 6,
5, 6, 7, 8, 9, 8, 9, 10, 11, 10, 9, 8, 9, 8, 9, 10, 9, 10, 11, 12,
11, 12, 11, 10, 9, 10, 11, 12, 13, 12, 13, 14, 13, 14, 15, 16, 17,
16, 17, 18, 19, 18, 17, 16, 17, 16, 17, 18, 17, 18, 19, 20, 21, 20,
21, 22, 23, 22, 21, 20, 19, 20, 19, 18, 19, 18, 17, 16, 17, 16, 17,
18, 19, 18, 17, 16, 17, 16, 17, 18, 17, 18, 19, 20, 19, 20, 19, 18,
17, 18, 19, 20, 21, 20, 21, 22, 21, 22, 23, 24, 25, 24, 25, 26, 27,
26, 25, 24, 25, 24, 25, 26, 25, 26, 27, 28, 29, 28, 29, 30, 31, 30,
29, 28, 27, 28, 27, 26, 27, 26, 25, 24, 23, 24, 23, 22, 21, 22, 23,
24, 23, 24, 23, 22, 23, 22, 21, 20, 21, 20, 21, 22, 23, 22, 21, 20,
19, 20, 19, 18, 19, 18, 17, 16, 15, 16, 15, 14, 13, 14, 15, 16, 15,
16, 15, 14, 15, 14, 13, 12, 11, 12, 11, 10, 9, 10, 11, 12, 13, 12,
13, 14, 13, 14, 15, 16, 15, 16, 15, 14, 13, 14, 15, 16, 15, 16, 15,
14, 15, 14, 13, 12, 13, 12, 13, 14, 15, 14, 13, 12, 11, 12, 11, 10,
11, 10, 9, 8, 9, 8, 9, 10, 11, 10, 9, 8, 9, 8, 9, 10, 9, 10, 11, 12,
13, 12, 13, 14, 15, 14, 13, 12, 11, 12, 11, 10, 11, 10, 9, 8, 7, 8,
7, 6, 5, 6, 7, 8, 7, 8, 7, 6, 7, 6, 5, 4, 5, 4, 5, 6, 7, 6, 5, 4, 3,
4, 3, 2, 3, 2, 1, 0, 1, 0, 1, 2, 3, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 4,
5, 4, 5, 6, 7, 6, 5, 4, 3, 4, 3, 2, 3, 2, 1, 0, 1, 0, 1, 2, 3, 2, 1,
0, 1, 0, 1, 2, 1, 2, 3, 4, 3, 4, 3, 2, 1, 2, 3, 4, 5, 4, 5, 6, 5, 6,
7, 8, 9, 8, 9, 10, 11, 10, 9, 8, 9, 8, 9, 10, 9, 10, 11, 12, 13, 12,
13, 14, 15, 14, 13, 12}
|