OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
MATHEMATICA
dpQ[{a_, b_, c_}]:=a==b==c; Module[{nn=4000, p, e, f}, p=RealDigits[Pi, 10, nn][[1]]; e=RealDigits[E, 10, nn][[1]]; f=RealDigits[GoldenRatio, 10, nn][[1]]; Flatten[Position[Thread[{p, e, f}], _?dpQ]]-1] (* Harvey P. Dale, Dec 20 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jason Rodgers (Jason628(AT)hotmail.com), Jan 22 2004
STATUS
approved