%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:62
File Name:P041600
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->A
\Do
1+A\->A
2(A\x^2-1)\->B
B+1\->C
(\Int (.5+\sqrtC))\x^2\->D
\If C=D
\Then B\Disp\IfEnd
\LpWhile 1
%End