A257494 Positions where e and the Golden Ratio have a common decimal digit.
3, 4, 10, 13, 24, 29, 32, 37, 38, 62, 63, 65, 100, 101, 127, 132, 150, 159, 170, 180, 183, 194, 204, 216, 228, 239, 256, 260, 268, 273, 277, 289, 297, 300, 310, 319, 320, 341, 375, 385, 391, 396, 406, 430, 431, 458, 473, 476, 486, 493, 500, 536, 544, 549
Offset: 1
Programs
-
Mathematica
With[{nn=1000},Flatten[Position[Thread[{RealDigits[GoldenRatio,10,nn][[1]],RealDigits[E,10,nn][[1]]}],_?(#[[1]]==#[[2]]&),{1},Heads-> False]]]