OFFSET
1,1
COMMENTS
{9, 40, 41}, {41, 840, 841}, {841, 353640, 353641}... are sides {a<b<c} of the right triangles, with hypotenuse c=b+1.
MATHEMATICA
nxt[{n_, a_}]:={n+1, If[EvenQ[n+1], (a^2-1)/2, a+1]}; Transpose[ NestList[ nxt, {1, 9}, 10]][[2]] (* Harvey P. Dale, Oct 15 2012 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Oct 21 2002
EXTENSIONS
More terms from Harvey P. Dale, Oct 15 2012
STATUS
approved