|
%I #10 Feb 26 2016 07:45:13
%S 2,1,2,6,6,2,4,1,4,2,10,10,10,10,2,3,6,1,6,3,2,14,14,14,14,14,14,2,8,
%T 4,8,1,8,4,8,2,18,18,6,18,18,6,18,18,2,5,10,5,10,1,10,5,10,5,2,22,22,
%U 22,22,22,22,22,22,22,22,2,12,3,4,6,12,1,12,6,4,3,12,2
%N Denominator triangle for A267863: T(m, a) = denominator((m - 2*a)/(2*m)), m >= 1, a = 1, ..., m.
%C For details and the Hurwitz reference see A267863.
%F T(m, a) = denominator((m - 2*a)/(2*m)), m >= 1, a = 1, ..., m.
%e The triangle begins:
%e m\a 1 2 3 4 5 6 7 8 9 10 ...
%e 1: 2
%e 2: 1 2
%e 3: 6 6 2
%e 4: 4 1 4 2
%e 5: 10 10 10 10 2
%e 6: 3 6 1 6 3 2
%e 7: 14 14 14 14 14 14 2
%e 8: 8 4 8 1 8 4 8 2
%e 9: 18 18 6 18 18 6 18 18 2
%e 10: 5 10 5 10 1 10 5 10 5 2
%e ...
%e For the beginning of the rational triangle R(m, a) see A267863.
%t R[m_, a_] := HurwitzZeta[0, a/m]; (* or *) R[m_, a_] := (m - 2*a)/(2*m); Table[R[m, a] // Denominator, {m, 1, 12}, {a, 1, m}] // Flatten (* _Jean-François Alcover_, Feb 26 2016 *)
%Y Cf. A267863.
%K nonn,frac,tabl,easy
%O 1,1
%A _Wolfdieter Lang_, Feb 18 2016
|
