OFFSET
1,1
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
EXAMPLE
15 = 3+6+6 with 3+6 = 9 | 18 and 6+6 = 12 | 36.
MATHEMATICA
sel[k_] := Select[IntegerPartitions[k, {3}], ({x, y, z} = Sort[#]; Divisible[x y, x+y] && Divisible[y z, y+z] && Divisible[x z, x+z])&];
Reap[For[k = 3, k <= 500, k++, sk = sel[k]; If[Length[sk] == 1, Print[k, " ", Sort[sk[[1]]]]; Sow[k]]]][[2, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jean-François Alcover, Apr 08 2021
STATUS
approved