|
|
A079781
|
|
Initial term of n-th row of triangle in A079784.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 29 2003
|
|
STATUS
|
approved
|
|
|
|