A248315 Egyptian fraction representation of sqrt(92) (A010543) using a greedy function.
9, 2, 11, 1327, 2658064, 22045059363790, 559876050162626752359764113, 970079383648139591179184216503267475762543140383282948, 1139782885752855378769274684680386640437890911588437912190474154597375065048854063128961470289155028588836525
Offset: 0
Keywords
Crossrefs
Programs
-
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[ 92]]