OFFSET
1,3
LINKS
Eric Weisstein's World of Mathematics, Dottie Number.
MATHEMATICA
z = x /. FindRoot[x == Cos[x], {x, 0},
WorkingPrecision -> 1000000]; data = ContinuedFraction[z];
g[list_] :=
Delete[list,
Transpose[{DeleteCases[
Table[If[list[[n]] < list[[n - 1]], n, no], {n, 2,
Length[list]}], no]}]]; p =
FixedPoint[g, DeleteDuplicates[data]]; Flatten[
Map[Position[data, #, 1, 1] &, p, {1}]]-1
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Ben Branman, Dec 22 2011
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 10 2024
STATUS
approved