A244601 Position of first occurrence of n consecutive equal digits in the decimal expansion of e starting after the decimal point.
1, 31, 47, 723, 4992, 89296, 210482, 384340, 110702779, 419970418
Offset: 1
Examples
Decimal expansion of e: 2.|7|18281828459045235360287471352|66|24977572470936|999|59574966967627724..
Links
Programs
-
Mathematica
e = Rest[First[RealDigits[E, 10, 2000000]]]; A244601 = ConstantArray[0, 8]; For[i = 1, i <= Length[e], i++, t = e[[i]]; c = 1; While[e[[i + c]] == t, c++]; If[A244601[[c]] == 0, A244601[[c]] = i; i = i + c - 1; Continue[]] ]; A244601 (* Robert Price, Sep 07 2019 *)
Extensions
a(5)-(8) from Jens Kruse Andersen, Jul 20 2014
a(9)-(10) from Felix Fröhlich, Aug 26 2014
Prepended a(1), Felix Fröhlich, Aug 31 2014
Comments