A244602 First repdigit number with n digits occurring in the decimal expansion of e, starting after the decimal point.

7, 66, 999, 8888, 66666, 0, 5555555, 99999999, 111111111, 1111111111

Offset: 1

Author

Felix Fröhlich, Jul 01 2014

Keywords

• nonn
• base
• more

Comments

A244601 allows consecutive 0's and says "Resulting repdigits are A244602", so 000000 = 0 is apparently allowed here as a repdigit with 6 digits. Otherwise a(6) would be 555555 at position 210482 (which extends to a seventh 5). - Jens Kruse Andersen, Jul 20 2014

Examples

			Decimal expansion of e:
2.|7|18281828459045235360287471352|66|24977572470936|999|59574966967627724..
		

Links

• e digit search engine

Crossrefs

Cf. A010785, A244601.

Programs

Mathematica

e = Rest[First[RealDigits[E, 10, 2000000]]];
A244602 = ConstantArray[0, 8];
For[i = 1, i <= Length[e], i++,
t = e[[i]]; c = 1;
While[e[[i + c]] == t, c++];
If[A244602[[c]] == 0,
  A244602[[c]] = FromDigits[ConstantArray[t, c]]; i = i + c - 1;
  Continue[]]
]; A244602 (* Robert Price, Sep 07 2019 *)
With[{edg=Rest[RealDigits[E,10,10^6][[1]]]},Table[FromDigits[SequenceCases[ edg, PadRight[ {},n,x_],1][[1]]],{n,7}]] (* The program generates the first seven terms of the sequence. *) (* Harvey P. Dale, Aug 13 2022 *)

Extensions

a(5)-a(8) from Jens Kruse Andersen, Jul 20 2014

a(9)-a(10) from Felix Fröhlich, Aug 26 2014

a(1) prepended by Alois P. Heinz, Aug 26 2014