OFFSET
1,2
COMMENTS
It's interesting that some terms are so much smaller than their neighbors, like row 8 (1 1 2 5 56) and row 26 (1 1 1 2 3 48 3952 76271067 17451826907684400). - Joshua Zucker, May 11 2006
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..31
MATHEMATICA
egyptFraction[f_] := Ceiling[1/Most[NestWhileList[# - 1/Ceiling[1/#] &, f, # != 0 &]]]; a[n_] := egyptFraction[HarmonicNumber[n]][[-1]]; Array[a, 20] (* Amiram Eldar, Apr 09 2022 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, May 01 2005
EXTENSIONS
More terms from Joshua Zucker, May 11 2006
STATUS
approved