OFFSET
1,1
MATHEMATICA
With[{nn=1000}, Flatten[Position[Thread[{RealDigits[GoldenRatio, 10, nn][[1]], RealDigits[E, 10, nn][[1]]}], _?(#[[1]]==#[[2]]&), {1}, Heads-> False]]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Apr 26 2015
STATUS
approved