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,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

Cf. A001008, A002805, A106394, A112330.

Sequence in context: A221510 A109489 A169636 * A325595 A256031 A073617

Adjacent sequences: A105398 A105399 A105400 * A105402 A105403 A105404

Keyword

easy,nonn

Author

Leroy Quet, May 01 2005

Extensions

More terms from Joshua Zucker, May 11 2006

Status

approved