login
A027449
Second diagonal of A027446.
1
3, 5, 7, 27, 22, 130, 225, 595, 532, 5292, 4830, 57750, 53460, 49764, 93093, 1486485, 1401400, 25185160, 23891868, 22724988, 21666840, 476166600, 455885430, 2186310126, 2100505176, 6063549800, 5842908500, 163495203300, 157949751960, 4735815444360
OFFSET
2,1
FORMULA
Numerators of sequence a[ n, n-1 ] in (a[ i, j ])^2 where a[ i, j ] = 1/i if j<=i, 0 if j>i.
MATHEMATICA
rows = 31;
M = MatrixPower[Table[If[j <= i, 1/i, 0], {i, 1, rows}, {j, 1, rows}], 2];
T = Table[M[[n]]*LCM @@ Denominator[M[[n]]], {n, 1, rows}];
a[n_] := T[[n, n-1]];
Table[a[n], {n, 2, rows}] (* Jean-François Alcover, May 06 2022 *)
CROSSREFS
Cf. A027446.
Sequence in context: A294924 A374430 A249544 * A126670 A126669 A126668
KEYWORD
nonn
EXTENSIONS
More terms from Sean A. Irvine, Nov 04 2019
STATUS
approved