|
|
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.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
We index the digits of sqrt(2) = 1.4142135... starting with 1 (for the 1), 2 (for the 4), 3 (for the second 1), 4 (for the second 4), 5 (for the 2), and so on.
Find the index of the first digit of a run of n consecutive equal digits after the decimal point: this is a(n). For example, the "88" here 1414213562373095048801.. begins at the 19th digit, so a(2) = 19. - N. J. A. Sloane, Mar 20 2023
|
|
LINKS
|
|
|
MATHEMATICA
|
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 *)
|
|
PROG
|
(PARI) 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)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|