[go: up one dir, main page]

login
A229192
Beginning position of n in the decimal expansion of the Euler-Mascheroni constant gamma.
1
11, 5, 4, 14, 9, 1, 7, 2, 16, 10, 36, 233, 23, 273, 101, 5, 200, 93, 657, 241, 24, 4, 139, 50, 30, 157, 71, 183, 15, 91, 390, 35, 14, 43, 62, 44, 83, 165, 371, 47, 31, 141, 38, 34, 106, 257, 78, 86, 63, 9, 124, 22, 189, 13
OFFSET
0,1
LINKS
Eric Weisstein's World of Mathematics, Constant Digit Scanning
Eric Weisstein's World of Mathematics, Euler-Mascheroni Constant Digits
MATHEMATICA
With[{eg=RealDigits[EulerGamma, 10, 1000][[1]]}, Flatten[Table[ SequencePosition[ eg, IntegerDigits[n], 1], {n, 0, 60}], 1]][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 20 2017 *)
CROSSREFS
Cf. A001620 (decimal expansion of the Euler-Mascheroni constant).
Sequence in context: A097531 A131029 A033331 * A303978 A085716 A127820
KEYWORD
nonn,base,less
AUTHOR
Eric W. Weisstein, Sep 15 2013
STATUS
approved