美しい整数の世界 (780ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

734: [age] 2024/11/12(火) 19:34:13.26 ID:RC3Ryq5+(1)調 AAS
◆原始ピタゴラス数
y=x+1 出力アルゴリズム

プログラム出力
Table[x=Floor[(Sqrt[2]+1)^(2n+1)/4];y=Ceiling[(Sqrt[2]+1)^(2n+1)/4];{x,y,Sqrt[x^2+y^2]},{n,1,20}]//Simplify

x^2+y^2=z^2
{x,y,z}=x, x+1, sqrt[2x^2+2x+1]

x=floor[(sqrt[2]+1)^(2n+1)/4]

したがって,

wolfram入力フォーム用に変換

Table[sqrt[2^(4mod a)floor[(sqrt[2]+1)^(2n+1)/4]^2+
2(1mod a)floor[(sqrt[2]+1)^(2n+1)/4]+(1mod a)],{n,1,20},{a,1,3}]

★★★★★

wolfram優秀過ぎ

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 1.299s*