|
楼主 |
发表于 2023-1-24 15:51
|
显示全部楼层
基本思路:
- an=a[n]/.Solve[a[n]==Log[1+a[n]],a[n],Reals][[1]]
- nan=n a[n] //DifferenceDelta[1/a[n] #,n]/DifferenceDelta[1/a[n],n]/.a[n+1]->Log[1+a[n]]& //Limit[#,a[n]->an]&
- n (n a[n]-2)/Log[n] //nan/(n a[n]) #& //n DifferenceDelta[Log[n] #,n]/Limit[n DifferenceDelta[Log[n],n],n->Infinity]& //nan/(n a[n]) #/.a[n+1]->Log[1+a[n]]& //Limit[#,a[n]->an]&
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|