login
A244602
First repdigit number with n digits occurring in the decimal expansion of e, starting after the decimal point.
6
7, 66, 999, 8888, 66666, 0, 5555555, 99999999, 111111111, 1111111111
OFFSET
1,1
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
EXAMPLE
Decimal expansion of e:
2.|7|18281828459045235360287471352|66|24977572470936|999|59574966967627724..
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 *)
CROSSREFS
Sequence in context: A024395 A215077 A003286 * A223889 A197744 A052351
KEYWORD
nonn,base,more
AUTHOR
Felix Fröhlich, Jul 01 2014
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
STATUS
approved