%I#19 2019年10月18日21:33:13

%S 25,35,45,60,80,95118126131136154155175178179183186202，

%电话：205212216218231258277283308310310313183236361363365373，

%电话：37839640242843844464460473485495504508512517536560593

%N在Pi的十进制扩展中，由两个或多个连续相等数字组成的字符串的起始索引。

%C数字3、1、4，。。。索引为1,2,3，。。。

%C A095916（a（n））=0.-_Reinhard Zumkeller_，2015年3月12日

%C参见A049518了解“正好2”变体，它不同于2019年10月18日.-M.F.Hasler_上的（11）

%H Reinhard Zumkeller，n表，n=1..1000的a（n）</a>

%H<a href=“/index/Ph#Pi314”>与数字Pi相关的序列的索引条目</a>

%e从2019年10月18日的M.F.Hasler开始：（开始）

%e Pi*10^25的整数部分以33结尾，即在位置25处开始两个重复数字3的（第一）字符串，因此a（1）=25。

%e在位置154处，开始一个由三个“1”组成的字符串，因此该序列同时列出了154和155，但序列A049518没有列出任何一个。（结束）

%t连续发生1[alist_，n_]：=平坦@位置[Apply[SameQ，Partition[list，n，1]，{1}]，True]；连续出现次数1[First[RealDigits[Pi，10601]]，2]

%t展平[Position[Partition[RealDigits[Pi，101000][[1]，2,1]，_？（#[[1]]==#[2]]&），{1}，头->假]]（*哈维·P·戴尔，2014年12月21日*）

%t序列位置[RealDigits[Pi，101000][[1]，{x_，x_}][[All，1]]（*需要Mathematica版本10或更高版本*）（*Harvey P.Dale_，2019年3月30日*）

%o（哈斯克尔）

%o a049514 n=a049514_列表！！（n-1）

%o a049514_list=过滤器（（==0）。a095916）[1..]

%o--_Reinhard Zumkeller_，2015年3月12日

%o（PARI）A049514_upto（N=999）={default（realprecision，N）；my（p=数字（Pi\10^-N））；select（i->p[i]==p[i+1]，[9..N-1]）}\\_M.F.Hasler_，2019年10月18日

%Y参见A049515、A049516、A0495127、A04951、A0495、A049、59、A049520、A049521、A04952、A04953。

%Y参考A000796、A095916。

%K nonn，基础

%O 1,1号机组

%A _哈维·P·戴尔_

%E编辑：Robert G.Wilson v_，2003年5月9日