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-4 of 4 results.
Comments