|
%I #11 Mar 28 2024 13:41:27
%S 2,4,9,8,55,54,413,832,2511,2510,27709,27708,360347,360346,360345,
%T 720704,12252223,12252222,232792541,232792540,232792539,232792538,
%U 5354228857,5354228856,26771144375,26771144374,80313433173,80313433172,2329089562771,2329089562770,72201776446769
%N Initial term of n-th row of triangle in A079784.
%H Jean-François Alcover, <a href="/A079781/b079781.txt">Table of n, a(n) for n = 1..100</a>
%t T[n_, k_] := T[n, k] = Which[n == k == 1, 2, n == k == 2, 5, n == k == 3, 11, n == k, LCM @@ Range[n] - 1, True, T[n, k + 1] - 1];
%t a[n_] := T[n, 1];
%t Table[a[n], {n, 1, 100}] (* _Jean-François Alcover_, Mar 28 2024, after comments in A079782 *)
%Y Cf. A079782, A079783, A079784.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Feb 03 2003
%E More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 29 2003
%E More terms from _Jean-François Alcover_, Mar 28 2024
|
