|
%I #17 Jan 03 2024 09:55:41
%S 0,2,2,4,1,4,6,2,2,6,8,2,2,2,8,10,2,2,2,2,10,12,2,4,3,4,2,12,14,2,2,2,
%T 2,2,2,14,16,2,4,2,4,2,4,2,16,18,2,2,6,2,2,6,2,2,18
%N Triangle read by rows: T(n, m) = m if 2*m = n, otherwise 2*gcd(n, m).
%e {0},
%e {2, 2},
%e {4, 1, 4},
%e {6, 2, 2, 6},
%e {8, 2, 2, 2, 8},
%e {10, 2, 2, 2, 2, 10},
%e {12, 2, 4, 3, 4, 2, 12},
%e {14, 2, 2, 2, 2, 2, 2, 14},
%e {16, 2, 4, 2, 4, 2, 4, 2, 16},
%e {18, 2, 2, 6, 2, 2, 6, 2, 2, 18}
%t M[d_, x_, y_] := Sum[Sum[If[n == m, GCD[d - 1, m - 1], If[n == d - m + 1, GCD[ d - 1, n - 1], 0]]*x^(n - 1)*y^(m - 1), {n, 1, d}], {m, 1, d}]
%t Table[CoefficientList[M[d, x, 1], x], {d, 1, 10}]
%t Flatten[%]
%t Table[Apply[Plus, CoefficientList[M[d, x, 1], x]], {d, 1, 10}]
%Y Cf. A109004, A140685.
%K nonn,tabl
%O 0,2
%A _Roger L. Bagula_ and _Mats Granvik_, Jul 16 2008
%E Definition simplified by the editors of the OEIS, Jan 03 2024
|
