OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
e = 2.7182818284..., gamma = 0.5772156649...; fourth digit of e and fourth digit of gamma are both 2, hence 4 is in the sequence.
MAPLE
P:=proc(i) local a, b, c, d, n; a:=convert(evalf(gamma, 1000), string); b:=convert(evalf(exp(1)-2, 1000), string); for n from 2 by 1 to i do if substring(a, n)=substring(b, n) then print(n-1); fi; od; end: P(900);
MATHEMATICA
With[{nn=600}, Position[Thread[{Rest[RealDigits[E, 10, nn+1][[1]]], RealDigits[ EulerGamma, 10, nn][[1]]}], {x_, x_}]]//Flatten (* Harvey P. Dale, Oct 08 2017 *)
PROG
(Magma) m:=600; e:=Exp(One(RealField(m+1))); se:=IntegerToString(Round(10^m*(e-2))); g:=EulerGamma(RealField(m)); sg:=IntegerToString(Round(10^m*g)); [ a: a in [1..m] | se[a] eq sg[a] ]; // Klaus Brockhaus, Sep 03 2009
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Aug 27 2009
EXTENSIONS
Edited and listed terms verified by Klaus Brockhaus, Sep 03 2009
STATUS
approved