a[n_Integer] = ((2^(1 + n) (-1 + n - n/(-1 + 2^n)))/(-1 + 2^(1 + n)) + ((-2 + 2^(-1 + n)) a[n])/(-1 + 2^(1 + n)) /.n -> n - 1);
a[1] = 4/3;
我是把a[1+n]的递推表达式换成a[n]的递推表达式定义了（就是把表达式等号右边所有的n换成n-1）
在输入上面的代码以后就可以用a[n]的形式计算任意项的值了
a[n_Integer] = ((2^(1 + n) (-1 + n - n/(-1 + 2^n)))/(-1 + 2^(1 + n)) + ((-2 + 2^(-1 + n)) a[n])/(-1 + 2^(1 + n)) /.n -> n - 1);
a[1] = 4/3;
我是把a[1+n]的递推表达式换成a[n]的递推表达式定义了（就是把表达式等号右边所有的n换成n-1）
在输入上面的代码以后就可以用a[n]的形式计算任意项的值了