cp's OEIS Frontend

A120073 Denominator triangle for hydrogen spectrum rationals.

%I A120073 #20 Apr 25 2023 20:18:57
%S A120073 4,9,36,16,16,144,25,100,225,400,36,9,12,144,900,49,196,441,784,1225,
%T A120073 1764,64,64,576,64,1600,576,3136,81,324,81,1296,2025,324,3969,5184,
%U A120073 100,25,900,400,100,225,4900,1600,8100,121,484,1089,1936,3025,4356,5929,7744,9801,12100
%N A120073 Denominator triangle for hydrogen spectrum rationals.
%C A120073 The corresponding numerator triangle is A120072.
%C A120073 See A120072 and A120070 for more details.
%H A120073 G. C. Greubel, <a href="/A120073/b120073.txt">Rows n = 2..50 of the triangle, flattened</a>
%H A120073 Wofdieter Lang, <a href="/A120072/a120072.txt">First ten rows, rationals and more</a>.
%F A120073 a(m,n) = denominator(r(m,n)) with r(m,n) = 1/n^2 - 1/m^2, m>=2, n=1..m-1.
%e A120073 For the rational triangle see W. Lang link.
%e A120073 Denominator triangle begins as:
%e A120073     4;
%e A120073     9,  36;
%e A120073    16,  16, 144;
%e A120073    25, 100, 225,  400;
%e A120073    36,   9,  12,  144,  900;
%e A120073    49, 196, 441,  784, 1225, 1764;
%e A120073    64,  64, 576,   64, 1600,  576, 3136;
%e A120073    81, 324,  81, 1296, 2025,  324, 3969, 5184;
%e A120073   100,  25, 900,  400,  100,  225, 4900, 1600, 8100;
%t A120073 Table[(1/n^2 - 1/m^2)//Denominator, {m,2,15}, {n,m-1}]//Flatten (* _Jean-François Alcover_, Sep 16 2013 *)
%o A120073 (Magma) [Denominator(1/k^2 - 1/n^2): k in [1..n-1], n in [2..18]]; // _G. C. Greubel_, Apr 24 2023
%o A120073 (SageMath)
%o A120073 def A120073(n,k): return denominator(1/k^2 - 1/n^2)
%o A120073 flatten([[A120073(n,k) for k in range(1,n)] for n in range(2,19)]) # _G. C. Greubel_, Apr 24 2023
%Y A120073 Row sums give A120075.
%Y A120073 Cf. A120070, A120072, A120074, A120076, A120077, A126252.
%K A120073 nonn,easy,tabl,frac
%O A120073 2,1
%A A120073 _Wolfdieter Lang_, Jul 20 2006