A294520 Numerators of the partial sums of the reciprocals of the dodecagonal numbers (k + 1)*(5*k + 1) = A051624(k+1), for k >= 0.
1, 13, 49, 795, 84179, 366829, 11417459, 103067441, 4235695001, 97604192047, 1661825059679, 1663957022369, 101611584435869, 101706166053389, 7226964017429851, 17176158550059533, 154681745346189277, 6654999228519884521, 6658297729691103841, 21316057915886595965, 2153790894613123442641
Offset: 0
Examples
The rationals V(5,1;n), n >= 0, begin: 1, 13/12, 49/44, 795/704, 84179/73920, 366829/320320, 11417459/9929920, 103067441/89369280, 4235695001/3664140480, 97604192047/84275231040, 1661825059679/1432678927680, ... V(5,1;10^6) = 1.177956058 (Maple, 10 digits) to be compared with 1.177956058 obtained from V(5,1) given in A244649.
References
- Max Koecher, Klassische elementare Analysis, Birkhäuser, Basel, Boston, 1987, Eulersche Reihen, pp. 189 - 193.
Links
- G. C. Greubel, Table of n, a(n) for n = 0..600
- Eric Weisstein's World of Mathematics, Digamma Function
Programs
-
Magma
[Numerator((&+[1/((k+1)*(5*k+1)): k in [0..n]])): n in [0..25]]; // G. C. Greubel, Aug 29 2018
-
Mathematica
Table[Numerator[Sum[1/((k + 1)*(5*k + 1)), {k, 0, n}]], {n, 0, 30}] (* G. C. Greubel, Aug 29 2018 *)
-
PARI
a(n) = numerator(sum(k=0, n, 1/((k + 1)*(5*k + 1)))); \\ Michel Marcus, Nov 15 2017
Comments