cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 25 results. Next

A197143 Decimal expansion of the shortest distance from the x axis through (2,1) to the line y=2x.

Original entry on oeis.org

2, 7, 4, 6, 3, 9, 4, 1, 0, 7, 6, 1, 0, 0, 7, 1, 1, 6, 5, 6, 7, 9, 9, 5, 4, 9, 7, 2, 2, 5, 2, 5, 7, 3, 3, 7, 4, 3, 9, 0, 5, 1, 4, 5, 6, 9, 1, 4, 5, 8, 6, 7, 1, 7, 4, 6, 4, 6, 3, 3, 5, 2, 3, 4, 4, 2, 2, 7, 3, 4, 8, 3, 1, 6, 8, 3, 0, 0, 4, 7, 0, 6, 1, 1, 5, 0, 0, 9, 6, 4, 4, 3, 2, 2, 4, 7, 9, 5, 1
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.

Examples

			length of Philo line:    2.7463941076100...
endpoint on x axis:    (2.69141, 0); see A197142
endpoint on line y=2x: (1.1295, 2.25901)

Crossrefs

Cf. A197032, A197143, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] :=  h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 2; h = 2; k = 1;(* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t] (* A197142 *)
{N[t], 0} (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=2x *)
d = N[Sqrt[f[t]], 100]
RealDigits[d] (* A197143 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 4}],
ContourPlot[(x - h)^2 + (y - k)^2 == .002, {x, 0, 4}, {y, 0, 3}], PlotRange -> {0, 2.5}, AspectRatio -> Automatic]

A197144 Decimal expansion of the x-intercept of the shortest segment from the x axis through (3,1) to the line y=2x.

Original entry on oeis.org

3, 8, 2, 8, 9, 1, 1, 1, 4, 1, 5, 4, 2, 9, 4, 3, 6, 5, 3, 2, 1, 9, 8, 8, 2, 2, 4, 1, 3, 9, 6, 4, 8, 6, 7, 2, 1, 7, 2, 4, 4, 5, 0, 5, 3, 9, 0, 2, 8, 4, 8, 7, 2, 0, 0, 6, 8, 2, 2, 8, 6, 6, 4, 6, 4, 8, 7, 9, 4, 9, 4, 6, 6, 2, 6, 1, 3, 2, 4, 9, 7, 5, 7, 1, 7, 5, 9, 4, 6, 9, 1, 5, 9, 2, 6, 0, 8, 4, 5, 7
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.

Examples

			length of Philo line:    3.7423891424451...; see A197145
endpoint on x axis:    (3.82891, 0)
endpoint on line y=2x: (1.44062, 2.88124)

Crossrefs

Cf. A197032, A197145, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] :=  h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 2; h = 3; k = 1;(* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t]  (* A197144 *)
{N[t], 0} (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=2x *)
d = N[Sqrt[f[t]], 100]
RealDigits[d]  (* A197145 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 4}],
ContourPlot[(x - h)^2 + (y - k)^2 == .002, {x, 0, 4}, {y, 0, 3}], PlotRange -> {0, 3}, AspectRatio -> Automatic]

A197145 Decimal expansion of the shortest distance from the x axis through (3,1) to the line y=2x.

Original entry on oeis.org

3, 7, 4, 2, 3, 8, 9, 1, 4, 2, 4, 4, 5, 1, 8, 4, 1, 9, 5, 1, 8, 5, 8, 7, 4, 1, 5, 7, 1, 6, 1, 4, 0, 6, 6, 7, 0, 4, 5, 0, 6, 4, 6, 4, 8, 5, 2, 6, 0, 5, 4, 6, 0, 6, 9, 0, 4, 8, 1, 7, 1, 5, 0, 7, 3, 7, 4, 9, 5, 6, 2, 2, 6, 8, 0, 8, 9, 9, 8, 5, 9, 9, 2, 0, 1, 0, 6, 0, 7, 8, 9, 0, 7, 6, 1, 6, 9, 9, 6
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.

Examples

			length of Philo line:    3.7423891424451...
endpoint on x axis:    (3.82891, 0); see A197144
endpoint on line y=2x: (1.44062, 2.88124)

Crossrefs

Cf. A197032, A197144, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] :=  h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 2; h = 3; k = 1;(* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t]  (* A197144 *)
{N[t], 0} (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=2x *)
d = N[Sqrt[f[t]], 100]
RealDigits[d]  (* A197145 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 4}],
ContourPlot[(x - h)^2 + (y - k)^2 == .002, {x, 0, 4}, {y, 0, 3}], PlotRange -> {0, 3}, AspectRatio -> Automatic]

A197146 Decimal expansion of the x-intercept of the shortest segment from the x axis through (4,1) to the line y=2x.

Original entry on oeis.org

4, 9, 2, 5, 4, 5, 5, 2, 2, 0, 4, 3, 5, 0, 0, 2, 8, 4, 4, 0, 9, 7, 4, 9, 8, 0, 2, 1, 9, 0, 5, 0, 2, 7, 3, 0, 7, 8, 7, 4, 1, 2, 9, 9, 2, 1, 1, 4, 9, 9, 6, 8, 6, 7, 1, 5, 9, 4, 8, 6, 0, 3, 3, 2, 4, 7, 8, 5, 2, 6, 5, 8, 1, 6, 3, 1, 3, 8, 3, 0, 0, 5, 0, 8, 7, 6, 8, 0, 1, 9, 9, 1, 3, 3, 0, 7, 6, 7, 6, 2
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.

Examples

			length of Philo line:  4.70800001749646..; see A197147
endpoint on x axis:    (4.92546, 0)
endpoint on line y=2x: (1.72768, 3.45536)

Crossrefs

Cf. A197032, A197147, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] :=  h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 2; h = 4; k = 1;  (* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t]   (* A197146 *)
{N[t], 0}   (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=2x *)
d = N[Sqrt[f[t]], 100]
RealDigits[d]   (* A197147 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 5}],
ContourPlot[(x - h)^2 + (y - k)^2 == .004, {x, 0, 5}, {y, 0, 3}], PlotRange -> {0, 4}, AspectRatio -> Automatic]

A197147 Decimal expansion of the shortest distance from the x axis through (4,1) to the line y=2x.

Original entry on oeis.org

4, 7, 0, 8, 0, 0, 0, 0, 1, 7, 4, 9, 6, 4, 6, 0, 2, 7, 3, 9, 3, 1, 7, 3, 5, 6, 4, 4, 1, 0, 5, 4, 5, 3, 5, 3, 3, 8, 5, 0, 6, 9, 2, 6, 7, 9, 9, 5, 1, 2, 9, 0, 8, 3, 1, 2, 1, 0, 9, 5, 6, 9, 5, 1, 9, 1, 4, 2, 6, 9, 5, 3, 3, 3, 0, 7, 7, 9, 3, 1, 2, 8, 6, 3, 1, 3, 7, 8, 1, 7, 5, 8, 5, 6, 3, 2, 3, 5, 5
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.

Examples

			length of Philo line:    4.708000017496..
endpoint on x axis:    (4.92546, 0); see A197146
endpoint on line y=2x: (1.72768, 3.45536)

Crossrefs

Cf. A197032, A197146, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] :=  h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 2; h = 4; k = 1;  (* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t]   (* A197146 *)
{N[t], 0}   (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=2x *)
d = N[Sqrt[f[t]], 100]
RealDigits[d]   (* A197147 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 5}],
ContourPlot[(x - h)^2 + (y - k)^2 == .004, {x, 0, 5}, {y, 0, 3}], PlotRange -> {0, 4}, AspectRatio -> Automatic]

A197148 Decimal expansion of the x-intercept of the shortest segment from the x axis through (1,1) to the line y=3x.

Original entry on oeis.org

1, 6, 0, 4, 7, 9, 3, 6, 1, 8, 4, 6, 2, 1, 3, 9, 9, 0, 7, 3, 7, 8, 3, 1, 7, 9, 5, 0, 7, 1, 7, 9, 6, 1, 8, 4, 6, 7, 1, 5, 4, 4, 9, 2, 1, 9, 9, 9, 1, 2, 8, 6, 0, 7, 7, 8, 6, 3, 6, 2, 9, 2, 2, 1, 4, 9, 2, 1, 6, 3, 7, 2, 6, 1, 9, 1, 2, 6, 0, 4, 2, 1, 6, 6, 7, 9, 9, 7, 0, 2, 2, 8, 4, 7, 0, 1, 4, 7, 7, 2
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.

Examples

			length of Philo line:  1.999158399580...; see A197149
endpoint on x axis:    (1.60479, 0)
endpoint on line y=3x: (0.570212, 1.71064)

Crossrefs

Cf. A197032, A197149, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] := h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 3; h = 1; k = 1;(* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t] (* A197148 *)
{N[t], 0} (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=3x *)
d = N[Sqrt[f[t]], 100]
RealDigits[d]  (* A197149 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 2}],
ContourPlot[(x - h)^2 + (y - k)^2 == .001, {x, 0, 4}, {y, 0, 3}], PlotRange -> {0, 2}, AspectRatio -> Automatic]

A197149 Decimal expansion of the shortest distance from the x axis through (1,1) to the line y=3x.

Original entry on oeis.org

1, 9, 9, 9, 1, 5, 8, 3, 9, 9, 5, 8, 0, 3, 4, 4, 2, 6, 8, 8, 1, 7, 4, 2, 3, 5, 4, 3, 8, 4, 6, 1, 6, 4, 7, 3, 4, 1, 3, 2, 8, 2, 3, 4, 7, 1, 1, 8, 9, 0, 6, 8, 3, 7, 7, 0, 9, 2, 8, 1, 2, 8, 1, 0, 4, 6, 8, 5, 4, 8, 5, 2, 8, 7, 0, 0, 4, 9, 0, 3, 2, 7, 6, 5, 3, 7, 3, 7, 5, 1, 3, 1, 8, 9, 2, 0, 5, 5, 5
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.

Examples

			length of Philo line:    1.999158399580...
endpoint on x axis:    (1.60479, 0); see A197148
endpoint on line y=3x: (0.570212, 1.71064)

Crossrefs

Cf. A197032, A197049, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] := h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 3; h = 1; k = 1;(* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t] (* A197148 *)
{N[t], 0} (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=3x *)
d = N[Sqrt[f[t]], 100]
RealDigits[d]  (* A197149 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 2}],
ContourPlot[(x - h)^2 + (y - k)^2 == .001, {x, 0, 4}, {y, 0, 3}], PlotRange -> {0, 2}, AspectRatio -> Automatic]

A197150 Decimal expansion of the x-intercept of the shortest segment from the x axis through (2,1) to the line y=3x.

Original entry on oeis.org

2, 8, 5, 1, 0, 5, 9, 7, 9, 0, 6, 2, 9, 8, 6, 2, 6, 3, 9, 8, 2, 6, 0, 7, 2, 3, 4, 0, 8, 5, 3, 6, 2, 6, 8, 9, 3, 3, 3, 9, 0, 9, 3, 5, 8, 1, 7, 2, 2, 1, 0, 1, 7, 3, 2, 2, 7, 0, 3, 3, 5, 9, 2, 6, 3, 9, 6, 4, 6, 0, 5, 4, 3, 6, 4, 2, 1, 0, 3, 0, 0, 7, 6, 0, 4, 2
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.
A root of the polynomial 3*x^3-16*x^2+30*x-25. - R. J. Mathar, Nov 08 2022

Examples

			length of Philo line:    3.160946973065...; see A197151
endpoint on x axis:    (2.85106, 0)
endpoint on line y=3x: (0.802397, 2.40719)

Crossrefs

Cf. A197032, A197151, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] :=  h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 3; h = 2; k = 1;(* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t]  (* A197150 *)
{N[t], 0} (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=3x *)
d = N[Sqrt[f[t]], 100]
RealDigits[d]  (* A197151 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 3}],
ContourPlot[(x - h)^2 + (y - k)^2 == .002, {x, 0, 4}, {y, 0, 3}],
PlotRange -> {0, 2.5}, AspectRatio -> Automatic]

Extensions

Incorrect trailing digits removed. - R. J. Mathar, Nov 08 2022

A197151 Decimal expansion of the shortest distance from the x axis through (2,1) to the line y=3x.

Original entry on oeis.org

3, 1, 6, 0, 9, 4, 6, 9, 7, 3, 0, 6, 5, 4, 4, 6, 5, 0, 6, 1, 3, 5, 8, 4, 4, 2, 7, 9, 9, 1, 7, 5, 8, 5, 1, 2, 1, 8, 2, 1, 5, 9, 8, 7, 5, 0, 7, 7, 8, 1, 5, 1, 2, 0, 1, 1, 2, 2, 6, 6, 0, 0, 3, 9, 0, 9, 7, 3, 9, 2, 1, 0, 8, 9, 2, 2, 3, 1, 0, 1, 2, 3, 7, 1, 5, 4, 0, 1, 3, 3, 7, 8, 3, 3, 5, 1, 0, 7, 9
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.

Examples

			length of Philo line:  3.160946973065...
endpoint on x axis:    (2.85106, 0); see A197150
endpoint on line y=3x: (0.802397, 2.40719)

Crossrefs

Cf. A197032, A197150, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] :=  h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 3; h = 2; k = 1;(* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t]  (* A197150 *)
{N[t], 0} (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=3x *)
d = N[Sqrt[f[t]], 100]
RealDigits[d]  (* A197151 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 3}],
ContourPlot[(x - h)^2 + (y - k)^2 == .002, {x, 0, 4}, {y, 0, 3}],
PlotRange -> {0, 2.5}, AspectRatio -> Automatic]

A197152 Decimal expansion of the x-intercept of the shortest segment from the x axis through (3,1) to the line y=x/2.

Original entry on oeis.org

3, 1, 5, 0, 9, 1, 1, 0, 8, 4, 3, 3, 5, 9, 4, 2, 6, 1, 2, 0, 5, 2, 8, 5, 6, 7, 3, 7, 5, 4, 2, 1, 5, 0, 1, 4, 0, 6, 2, 2, 5, 6, 2, 9, 3, 7, 1, 7, 4, 0, 6, 9, 9, 1, 8, 3, 8, 7, 1, 8, 7, 8, 9, 1, 8, 1, 3, 6, 6, 1, 9, 1, 5, 6, 2, 0, 2, 9, 2, 3, 6, 5, 0, 5, 6, 2, 1, 8, 0, 4, 1, 8, 8, 5, 5
Offset: 1

Views

Author

Clark Kimberling, Oct 11 2011

Keywords

Comments

The shortest segment from one side of an angle T through a point P inside T is called the Philo line of P in T. For discussions and guides to related sequences, see A197032, A197008 and A195284.
A root of the polynomial x^3/2 -5*x^2/2 +9*x/2 -5. - R. J. Mathar, Nov 08 2022

Examples

			length of Philo line:    1.481506505...; see A197153
endpoint on x axis:    (3.15091, 0)
endpoint on line y=3x: (2.92984, 1.46492)

Crossrefs

Cf. A197032, A197153, A197008, A195284.

Programs

  • Mathematica
    f[t_] := (t - k*t/(k + m*t - m*h))^2 + (m*k*t/(k + m*t - m*h))^2;
g[t_] := D[f[t], t]; Factor[g[t]]
p[t_] :=  h^2 k + k^3 - h^3 m - h k^2 m - 3 h k t + 3 h^2 m t + 2 k t^2 - 3 h m t^2 + m t^3
m = 1/2; h = 3; k = 1;(* slope m, point (h,k) *)
t = t1 /. FindRoot[p[t1] == 0, {t1, 1, 2}, WorkingPrecision -> 100]
RealDigits[t] (* A197152 *)
{N[t], 0} (* endpoint on x axis *)
{N[k*t/(k + m*t - m*h)],
N[m*k*t/(k + m*t - m*h)]} (* endpt on line y=x/2 *)
d = N[Sqrt[f[t]], 100]
RealDigits[d]  (* A197153 *)
Show[Plot[{k*(x - t)/(h - t), m*x}, {x, 0, 3.5}],
ContourPlot[(x - h)^2 + (y - k)^2 == .002, {x, 0, 4}, {y, 0, 3}],
PlotRange -> {0, 1.5}, AspectRatio -> Automatic]

Extensions

Incorrect trailing digits deleted. - R. J. Mathar, Nov 08 2022
Previous Showing 11-20 of 25 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.