cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A369135 a(n) is the lcm of the denominators of the terms in the n-th row of M where M is the inverse of the matrix generated by the triangle A368846.

This page as a plain text file.
%I A369135 #18 Jan 14 2024 15:22:13
%S A369135 1,6,30,420,630,13860,180180,5405400,4594590,96996900,1222160940,
%T A369135 40156716600,6692786100,281097016200,1164544781400,72201776446800,
%U A369135 2084826294901350,1895296631728500,222622144044300,1823275359722817000,575032998066426900,129519337183533297000
%N A369135 a(n) is the lcm of the denominators of the terms in the n-th row of M where M is the inverse of the matrix generated by the triangle A368846.
%C A369135 See A369134 for comments and formulas.
%t A369135 A368846[n_, k_] := If[k == 0, Boole[n == 0], (-1)^(n + k) 2 Binomial[2 k - 1, n] Binomial[2 n + 1, 2 k]];
%t A369135 LCM @@@ Denominator[MapIndexed[Take[#, First[#2]]&, Inverse[PadRight[Table[ A368846[n, k], {n, 0, 25}, {k, 0, n}]]]]] (* _Paolo Xausa_, Jan 14 2024 *)
%o A369135 (SageMath)
%o A369135 M = matrix(ZZ, 32, 32, A368846).inverse()
%o A369135 def A369135(n): return lcm(M[n][k].denominator() for k in range(n + 1))
%o A369135 print([A369135(n) for n in range(21)])
%Y A369135 Cf. A369134, A368846.
%K A369135 sign
%O A369135 0,2
%A A369135 _Peter Luschny_, Jan 14 2024