A079781 Initial term of n-th row of triangle in A079784.

2, 4, 9, 8, 55, 54, 413, 832, 2511, 2510, 27709, 27708, 360347, 360346, 360345, 720704, 12252223, 12252222, 232792541, 232792540, 232792539, 232792538, 5354228857, 5354228856, 26771144375, 26771144374, 80313433173, 80313433172, 2329089562771, 2329089562770, 72201776446769

Offset

1,1

Links

Jean-François Alcover, Table of n, a(n) for n = 1..100

Mathematica

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];
a[n_] := T[n, 1];
Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Mar 28 2024, after comments in A079782 *)

Crossrefs

Cf. A079782, A079783, A079784.

Sequence in context: A125752 A103147 A340169 * A163299 A337911 A198679

Adjacent sequences: A079778 A079779 A079780 * A079782 A079783 A079784

Keyword

nonn

Author

Amarnath Murthy, Feb 03 2003

Extensions

More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 29 2003

More terms from Jean-François Alcover, Mar 28 2024

Status

approved