OFFSET
1,1
COMMENTS
A proper subset of A191676.
MATHEMATICA
mx = 2000; lmt = Floor[9 Sqrt[mx]/2]; lst = {}; Do[ If[ GCD[a, b] == 1 && GCD[b, c] == 1 && a*b + c == (a + b) c < mx, AppendTo[ lst, a*b + c]], {a, 4, lmt}, {b, 3, a - 1}, {c, 2, b - 1}]; lst = Sort@ lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 19 2011
STATUS
approved