A244602
First repdigit number with n digits occurring in the decimal expansion of e, starting after the decimal point.
Original entry on oeis.org
7, 66, 999, 8888, 66666, 0, 5555555, 99999999, 111111111, 1111111111
Offset: 1
Decimal expansion of e:
2.|7|18281828459045235360287471352|66|24977572470936|999|59574966967627724..
-
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 *)
A277259
Position of initial digit of first string of n consecutive equal digits in the decimal expansion of the Golden ratio (phi), starting after the decimal point.
Original entry on oeis.org
1, 5, 129, 1216, 6399, 99788, 771950, 771950, 314529194
Offset: 1
1205th to 1230th digits of phi are as follows: ...63972321340444494873023154...
The 1216th digit is occupied by the first of four consecutive 4's and there is no earlier occurrence of four or more consecutive equal digits, so a(4) = 1216.
A277260
Value of decimal number corresponding to the string of equal digits starting at position A277259(n) after the decimal point in the decimal expansion of the Golden ratio (phi).
Original entry on oeis.org
6, 33, 222, 4444, 99999, 555555, 5555555, 55555555, 333333333
Offset: 1
1205th to 1230th digits of phi are as follows: ...63972321340444494873023154...
The 1216th digit is occupied by the first of four consecutive 4's and there is no earlier occurrence of four or more consecutive equal digits, so a(4) = 4444.
A277532
Position of first occurrence of at least n consecutive equal digits in the decimal expansion of the Euler-Mascheroni constant, starting after the decimal point.
Original entry on oeis.org
0, 1, 72, 2346, 3422, 3892
Offset: 1
-
emstring(n) = default(realprecision, n+10); my(x=Euler); floor(x*10^n)
emdigit(n) = emstring(n)-10*emstring(n-1)
searchstrpos(n) = my(x=1, i=1); while(1, my(y=x+1); while(emdigit(y)==emdigit(x), y++; i++); if(i >= n, return(x-1)); i=1; x++)
a(n) = searchstrpos(n)
A277533
Value of decimal number corresponding to the string of equal digits starting at position A277532(n) after the decimal point in the decimal expansion of the Euler-Mascheroni constant.
Original entry on oeis.org
5, 77, 777, 0, 0, 333333
Offset: 1
-
emstring(n) = default(realprecision, n+10); my(x=Euler); floor(x*10^n)
emdigit(n) = emstring(n)-10*emstring(n-1)
searchstrval(n) = my(x=1, i=1); while(1, my(y=x+1); while(emdigit(y)==emdigit(x), y++; i++); if(i >= n, return(emdigit(x)*(10^n-1)/9)); i=1; x++)
a(n) = searchstrval(n)
A280546
Index in A002193 of start of first occurrence of at least n consecutive equal digits in the decimal expansion of sqrt(2) after the decimal point.
Original entry on oeis.org
2, 19, 150, 953, 2708, 32414, 158810, 4602784, 472173970, 472173970
Offset: 1
-
Module[{nn=160000,s2},s2=RealDigits[Sqrt[2],10,nn][[1]];Flatten[Table[ SequencePosition[ s2,PadRight[{},k,x_],1],{k,7}],1]][[;;,1]] (* Harvey P. Dale, Mar 20 2023 *)
-
string(n) = default(realprecision, n+10); my(x=sqrt(2)); floor(x*10^n)
digit(n) = string(n)-10*string(n-1)
searchstrpos(n) = my(x=1, i=1); while(1, my(y=x+1); while(digit(y)==digit(x), y++; i++); if(i >= n, return(x+1)); i=1; x++)
a(n) = searchstrpos(n)
Showing 1-6 of 6 results.
Comments