OFFSET
0,1
LINKS
Eric W. Weisstein, Table of n, a(n) for n = 0..999
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
KEYWORD
nonn,base,less
AUTHOR
Eric W. Weisstein, Sep 15 2013
STATUS
approved