A105401 a(n) is the final term of the n-th row of A106394.

1, 2, 3, 12, 30, 180, 395780, 56, 5339880, 18448242120, 1192281609186360, 180180, 393869810468558572779517216129800, 2914872400440, 2914872400440, 180026486640, 4193048661254917704240, 2640766128, 11832093494672880

Offset: 1

Author

Leroy Quet, May 01 2005

Keywords

• easy
• nonn

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

Crossrefs

Cf. A001008, A002805, A106394, A112330.

Programs

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 *)

Extensions

More terms from Joshua Zucker, May 11 2006