|
%I #13 May 14 2023 04:10:56
%S 3,4,10,13,24,29,32,37,38,62,63,65,100,101,127,132,150,159,170,180,
%T 183,194,204,216,228,239,256,260,268,273,277,289,297,300,310,319,320,
%U 341,375,385,391,396,406,430,431,458,473,476,486,493,500,536,544,549
%N Positions where e and the Golden Ratio have a common decimal digit.
%t With[{nn=1000},Flatten[Position[Thread[{RealDigits[GoldenRatio,10,nn][[1]],RealDigits[E,10,nn][[1]]}],_?(#[[1]]==#[[2]]&),{1},Heads-> False]]]
%Y Cf. A001113, A001622.
%Y Cf. A052055, A257492.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Apr 26 2015
|
