|
|
A244602
|
|
First repdigit number with n digits occurring in the decimal expansion of e, starting after the decimal point.
|
|
6
|
|
|
|
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
|
|
LINKS
|
|
|
EXAMPLE
|
Decimal expansion of e:
2.|7|18281828459045235360287471352|66|24977572470936|999|59574966967627724..
|
|
MATHEMATICA
|
e = Rest[First[RealDigits[E, 10, 2000000]]];
For[i = 1, i <= Length[e], i++,
t = e[[i]]; c = 1;
While[e[[i + c]] == t, c++];
A244602[[c]] = FromDigits[ConstantArray[t, c]]; i = i + c - 1;
Continue[]]
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
|
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|