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

%I #13 Apr 09 2022 06:15:45

%S 1,2,3,12,30,180,395780,56,5339880,18448242120,1192281609186360,

%T 180180,393869810468558572779517216129800,2914872400440,2914872400440,

%U 180026486640,4193048661254917704240,2640766128,11832093494672880

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

%C 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

%H Amiram Eldar, <a href="/A105401/b105401.txt">Table of n, a(n) for n = 1..31</a>

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

%Y Cf. A001008, A002805, A106394, A112330.

%K easy,nonn

%O 1,2

%A _Leroy Quet_, May 01 2005

%E More terms from _Joshua Zucker_, May 11 2006