# How to calculate digits of Trott Constants?

How to calculate digits of numbers (Trott Constant) whose continued fraction representation is the same as the digits of its radix representation with Mathematica?

• "However, attempts to extend the number of digits have proved problematic." (from the Mathworld article) – Patrick Stevens Dec 24 '15 at 19:47
• Have a look at this article. – J. M. is away Feb 16 '16 at 12:23

WolframAlpha["trott constant", {{"ContinuedFraction", 1}, "Input"},
PodStates -> {"ContinuedFraction__Fraction form"}]

(*
HoldComplete[
ContinuedFraction[
0.108410151223111361511290811406415091122158090939091, 23
]
]
*)


You can sub in other numbers for the above 23

ContinuedFraction[0.108410151223111361511290811406415091122158090939091, 20]

(*{0, 9, 4, 2, 5, 1, 2, 2, 3, 1, 1, 1, 3, 6, 1, 5, 1, 1, 2, 17}*)