OFFSET
1,4
LINKS
Christian Elsholtz, Sums Of k Unit Fractions
David Eppstein, Algorithms for Egyptian Fractions
MATHEMATICA
Needs["MyOwn`Egypt`"]; Table[ Length[ EgyptianFraction[3/n, Method -> Lexicographic, MaxTerms -> 3, MinTerms -> 3, Duplicates -> Disallow, OutputFormat -> Plain]], {n, 5, 70}]
f[n_] := Length@ Solve[3/n == 1/x + 1/y + 1/z && 0 < x < y < z, {x, y, z}, Integers]; Array[f, 69] (* Robert G. Wilson v, Jul 17 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 18 2002
STATUS
approved