login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A195448
Decimal expansion of shortest length, (C), of segment from side CA through centroid to side CB in right triangle ABC with sidelengths (a,b,c)=(1,3,sqrt(10)).
5
1, 5, 6, 3, 1, 9, 1, 0, 3, 6, 6, 7, 5, 6, 7, 7, 4, 9, 2, 4, 7, 0, 0, 3, 6, 7, 4, 1, 2, 9, 7, 1, 4, 5, 4, 0, 4, 7, 4, 4, 9, 8, 0, 7, 0, 3, 8, 3, 7, 4, 3, 2, 0, 7, 6, 5, 2, 1, 0, 8, 7, 5, 3, 3, 7, 0, 4, 0, 4, 6, 2, 7, 2, 9, 1, 3, 4, 7, 9, 3, 3, 8, 8, 2, 5, 8, 0, 1, 4, 2, 1, 0, 5, 6, 0, 3, 3, 8, 4, 1
OFFSET
1,2
COMMENTS
See A195304 for definitions and a general discussion.
EXAMPLE
(C)=1.563191036675677492470036741297145404744...
MATHEMATICA
a = 1; b = 3; h = 2 a/3; k = b/3;
f[t_] := (t - a)^2 + ((t - a)^2) ((a*k - b*t)/(a*h - a*t))^2
s = NSolve[D[f[t], t] == 0, t, 150]
f1 = (f[t])^(1/2) /. Part[s, 4]
RealDigits[%, 10, 100] (* (A) A195446 *)
f[t_] := (t - a)^2 + ((t - a)^2) (k/(h - t))^2
s = NSolve[D[f[t], t] == 0, t, 150]
f2 = (f[t])^(1/2) /. Part[s, 4]
RealDigits[%, 10, 100] (* (B) A195447 *)
f[t_] := (b*t/a)^2 + ((b*t/a)^2) ((a*h - a*t)/(b*t - a*k))^2
s = NSolve[D[f[t], t] == 0, t, 150]
f3 = (f[t])^(1/2) /. Part[s, 1]
RealDigits[%, 10, 100] (* (C) A195448 *)
c = Sqrt[a^2 + b^2]; (f1 + f2 + f3)/(a + b + c)
RealDigits[%, 10, 100] (* Philo(ABC, G) A195449 *)
CROSSREFS
Cf. A195304.
Sequence in context: A106599 A342015 A222466 * A079267 A060296 A114598
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Sep 18 2011
STATUS
approved