|
%I #13 May 06 2022 07:55:23
%S 11,13,47,37,214,365,955,847,8372,7602,90510,83490,77484,144573,
%T 2303301,2167165,38878840,36824788,34977228,33306468,731129880,
%U 699259470,3350272926,3215969526,9276087128,8931886700,249757779700,241131522060,7225531873560
%N Third diagonal of A027446.
%F Numerators of sequence a[ n, n-2 ] in (a[ i, j ])^2 where a[ i, j ] = 1/i if j<=i, 0 if j>i.
%t rows = 31;
%t M = MatrixPower[Table[If[j <= i, 1/i, 0], {i, 1, rows}, {j, 1, rows}], 2];
%t T = Table[M[[n]]*LCM @@ Denominator[M[[n]]], {n, 1, rows}];
%t a[n_] := T[[n, n-2]];
%t Table[a[n], {n, 3, rows}] (* _Jean-François Alcover_, May 06 2022 *)
%Y Cf. A027446.
%K nonn
%O 3,1
%A _Olivier Gérard_
%E More terms from _Sean A. Irvine_, Nov 04 2019
|
