OFFSET
1,1
COMMENTS
{7, 24, 25}, {25, 312, 313}, {313, 48984, 48985}... are sides {a<b<c} of the right triangles, with hypotenuse c=b+1.
MATHEMATICA
nxt[{a_, b_}]:={a+1, If[OddQ[a], (b^2-1)/2, b+1]}; Transpose[NestList[nxt, {1, 7}, 15]][[2]] (* Harvey P. Dale, Dec 13 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Oct 21 2002
EXTENSIONS
More terms from Harvey P. Dale, Dec 13 2011
STATUS
approved