%I#16 2012年3月30日19:00:48

%S 0，1，2，4，6，19，29，532035399553281014114675292557

%N A177413中记录值的索引。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/DottieNumber.html“>Dottie编号。

%F A177413（a（n））=A184952（n）。

%t z=x/。查找根[x==Cos[x]，{x，0}，

%t工作精度->1000000]；数据=ContinuedFraction[z]；

%t g[列表]：=

%t删除[list，

%t转座[{删除案例[

%t表[If[list[[n]]<list[[n-1]]，n，no]，{n，2，

%t长度[list]}]，否]}]]；第页=

%t固定点[g，删除重复项[data]]；压扁[

%t映射[位置[data，#，1，1]&，p，{1}]]-1

%Y参见A184952、A177413、A003957。

%K nonn、cofr、hard、more

%0、3

%A _本·布兰曼，2011年12月22日