This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A105401 #13 Apr 09 2022 06:15:45 %S A105401 1,2,3,12,30,180,395780,56,5339880,18448242120,1192281609186360, %T A105401 180180,393869810468558572779517216129800,2914872400440,2914872400440, %U A105401 180026486640,4193048661254917704240,2640766128,11832093494672880 %N A105401 a(n) is the final term of the n-th row of A106394. %C A105401 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 A105401 Amiram Eldar, <a href="/A105401/b105401.txt">Table of n, a(n) for n = 1..31</a> %t A105401 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 A105401 Cf. A001008, A002805, A106394, A112330. %K A105401 easy,nonn %O A105401 1,2 %A A105401 _Leroy Quet_, May 01 2005 %E A105401 More terms from _Joshua Zucker_, May 11 2006