OFFSET
0,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..11
Eric Weisstein's World of Mathematics, Egyptian Fraction.
MATHEMATICA
Egyptian[nbr_] := Block[{lst = {IntegerPart[nbr]}, cons = N[ FractionalPart[ nbr], 2^20], denom, iter = 8}, While[ iter > 0, denom = Ceiling[ 1/cons]; AppendTo[ lst, denom]; cons -= 1/denom; iter--]; lst]; Egyptian[ Sqrt[ 5]]
CROSSREFS
Cf. A002163.
KEYWORD
nonn,frac
AUTHOR
Robert G. Wilson v, Oct 04 2014
STATUS
approved