■連続する2数をもつピタゴラス数
a
2
+b
2
=c
2
において，a=n,b=n+1となる場合（nは自然数）。
（1≦n≦10
7
）
BASICプログラム例
100 LET n=0
110 LET n=n+1
120 IF n=10^7 THEN STOP
130 LET c=(n^2+(n+1)^2)^0.5
140 IF c=INT(c) THEN PRINT n;n+1;c
150 goto 110
END
a
b
c
3
4
5
20
21
29
119
120
169
696
697
985
4059
4060
5741
23660
23661
33461
137903
137904
195025
803760
803761
1136689
4684659
4684660
6625109
（2011/6/4 時岡）