OFFSET
1,2
LINKS
MATHEMATICA
a[n_] := Length@ Solve[ 2/n == 1/x + 1/y + 1/z && 1 <= x <= y <= z, {x, y, z}, Integers]; Array[a, 70]
CROSSREFS
KEYWORD
nonn
AUTHOR
Allan C. Wechsler and Robert G. Wilson v, Aug 17 2013
STATUS
approved