OFFSET
1,1
COMMENTS
LINKS
Jean-François Alcover, Table of n, a(n) for n = 1..869
FORMULA
a(n)=s*(r+s), where r<s<2r and (r, s)=1.
MATHEMATICA
s[p_] := Solve[1 < r < s < 2r && p == r s + s^2 && GCD[r, s] == 1, {r, s}, Integers];
Reap[For[p = 1, p <= 10000, p++, sp = s[p]; If[sp =!= {}, Sow[p]; Print[p, " ", {r s, s^2 - r^2, r^2} /. sp[[1]]]]]][[2, 1]] (* Jean-François Alcover, Mar 06 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, May 04 2005
EXTENSIONS
Extended by Ray Chandler, May 09 2005
STATUS
approved