#来自在线整数序列百科全书的问候!1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,1,1,1,1,1,1,1,2,2,1,1,1,1,1,1,2,1,2,2,1,1,1,1,1,1,1,1,2,2,2,1,1 9,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,(A)直角三角形ABC中从AB侧穿过质心到AC侧的线段,边长(A,b,c)=(5,12,13)。 %c A195412有关定义和一般讨论,请参见A195304。 %e A195412(A)=3.2685053980712063771002133685385386589330457… %t A195412 A=5;b=12;h=2 A/3;k=b/3;%t A195412 f[t_u]:=(t-a)^2+((t-a)^2)((a*k-b*t)/(a*h-a*t))^2 %t A195412 s=n存[D[f[t],t]==0,t,150] %t A195412 f1=(f[t])^(1/2)/。第[s,4] %t A195412实数位数[%,10,100](*(A)A195412*) %t A195412 f[t]:=(t-A)^2+((t-A)^2)(k/(h-t))^2 %t A195412 s=n存[D[f[t],t]==0,t,150] %t A195412 f2=(f[t])^(1/2)/。%t A195412 f[t[t[t/a]:=(B*B*A195413*). %t A195412 f[t[U]:=(B*t t/a)^2+((B*t t/a)^2)((a*h-a*t t)/(B*t-a*k))^2%t A195412 s=解决了[D[f[t,t]=0,t,150]10;%t A195412 s=解决了[D[f[t),t]=0,t,150];%t%t A195412 f3=(f[t])^(f[t])^(1/2)2)/(1/2)/(B*1/2一。第[s,1];%t A195412实数位数[%,10,100](*(C)A195414*);%t A195412 C=Sqrt[a^2+b^2];(f1+f2+f3)/(a+b+C);%t A195412真实数字[%,10,100](*Philo(ABC,G)A195424*)(*Philo(ABC,G)A195424*);%Y A195412 A195412 Cf A195413、A195414、A195424、A195424.10;%K A195412 NON,cons(a+K A195412 NON,cons+C);%t A195412 A195412 NON,cons+N%O A195412 1,1 %a A195412 克拉克•金伯利,2011年9月18日 #内容根据OEIS最终用户许可协议提供:http://OEIS.org/License