A171372 - OEIS

%I #22 Dec 12 2023 07:39:09

%S 1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,

%T 5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,

%U 5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5,1,5,5,5,5

%N a(n) = Numerator of 1/(2*n)^2 - 1/(3*n)^2 for n > 0, a(0) = 1.

%C The diagonal of a table of numerators of the Rydberg-Ritz spectrum of hydrogen:

%C   1,  1,  1,   1,  1,   1,  1,   1,  1,   1,   1, ... A000012

%C   0,  5,  3,  21,  2,  45, 15,  77,  6, 117,  35, ... A061037

%C   0,  9,  5,  33,  3,  65, 21, 105,  1, 153,  45, ... A061041

%C   0, 13,  7,   5,  4,  85,  1, 133, 10,   7,  55, ... A061045

%C   0, 17,  9,  57,  5, 105, 33, 161,  3, 225,  65, ... A061049

%C   0, 21, 11,  69,  6,   1, 39, 189, 14, 261,   3, ...

%C   0, 25, 13,   1,  7, 145,  5, 217,  1,  11,  85, ...

%C   0, 29, 15,  93,  8, 165, 51,   5, 18, 333,  95, ...

%C   0, 33, 17, 105,  9, 185, 57, 273,  5, 369, 105, ...

%C   0, 37, 19,  13, 10, 205,  7, 301, 22,   5, 115, ...

%C   0, 41, 21, 129, 11,   9, 69, 329,  3, 441,   1, ...

%C In that respect, constructed similar to A144437.

%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,1).

%F a(n) = numerator of 5/(6*n)^2 .

%F Period 5: repeat [1,5,5,5,5].

%F G.f.: (1 + 5*x + 5*x^2 + 5*x^3 + 5*x^4)/((1-x)*(1 + x + x^2 + x^3 + x^4)).

%F a(n) = 1 + 4*sign(n mod 5). - _Wesley Ivan Hurt_, Sep 26 2018

%F a(n) = (21-8*cos(2*n*Pi/5)-8*cos(4*n*Pi/5))/5. - _Wesley Ivan Hurt_, Sep 27 2018

%t Table[If[n==0,1,Numerator[5/(6*n)^2]], {n,0,100}] (* _G. C. Greubel_, Sep 20 2018 *)

%o (PARI) concat([1], vector(100, n, numerator(5/(6*n)^2))) \\ _G. C. Greubel_, Sep 20 2018

%o (Magma) [1] cat [Numerator(5/(6*n)^2): n in [1..100]]; // _G. C. Greubel_, Sep 20 2018

%Y Cf. A171373 (binomial transform), A171408, A105371.

%K nonn,easy,frac

%O 0,2

%A _Paul Curtz_, Dec 07 2009

%E Edited by _R. J. Mathar_, Dec 15 2009