OFFSET
1,1
MATHEMATICA
With[{nn=1000}, Flatten[Position[Thread[{RealDigits[GoldenRatio, 10, nn][[1]], RealDigits[Pi, 10, nn][[1]]}], _?(#[[1]]==#[[2]]&), {1}, Heads-> False]]]
PROG
(Python)
from sympy import S
digits = 1000
pi, phi = str(S.Pi.n(digits+3)), str(S.GoldenRatio.n(digits+3))
print([k for k in range(2, digits+1) if pi[k] == phi[k]]) # Michael S. Branicky, May 06 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Apr 26 2015
STATUS
approved