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.

Showing 1-2 of 2 results.

A244641 Decimal expansion of the sum of the reciprocals of the pentagonal numbers (A000326).

Original entry on oeis.org

1, 4, 8, 2, 0, 3, 7, 5, 0, 1, 7, 7, 0, 1, 1, 1, 2, 2, 3, 5, 9, 1, 6, 5, 7, 4, 5, 3, 1, 2, 5, 4, 2, 1, 3, 8, 1, 6, 5, 8, 4, 0, 5, 4, 2, 5, 3, 7, 5, 5, 0, 7, 7, 7, 9, 6, 3, 4, 1, 9, 8, 0, 6, 5, 5, 2, 4, 3, 5, 9, 6, 9, 8, 5, 2, 9, 4, 7, 3, 0, 1, 6, 9, 3, 6, 7, 2, 2, 2, 7, 6, 2, 2, 9, 1, 3, 6, 0, 9, 7, 5, 0, 7, 6, 8
Offset: 1

Views

Author

Robert G. Wilson v, Jul 03 2014

Keywords

Examples

			1.482037501770111223591657453125421381658405425375507779634198065524359698529473...

Links

Crossrefs

Cf. A000326, A016650, A093602, A294514.
Decimal expansion of the sum of the reciprocals of the m-gonal numbers: A000038 (m=3), A013661 (m=4), this sequence (m=5), A016627 (m=6), A244639 (m=7), A244645 (m=8), A244646 (m=9), A244647 (m=10), A244648 (m=11), A244649 (m=12), A275792 (m=14).

Programs

  • Magma
    SetDefaultRealField(RealField(139)); R:= RealField(); 3*Log(3)-Pi(R)*Sqrt(3)/3; // G. C. Greubel, Mar 24 2024
  • Mathematica
    RealDigits[Sum[2/(3*n^2-n), {n,1,Infinity}], 10, 111][[1]]
RealDigits[3*Log[3] - Pi*Sqrt[3]/3, 10, 140][[1]] (* G. C. Greubel, Mar 24 2024 *)
  • SageMath
    numerical_approx(3*log(3)-pi*sqrt(3)/3, digits=139) # G. C. Greubel, Mar 24 2024

Formula

Sum_{n>=1} 2/(3*n^2 - n).
Equals 3*log(3) - Pi*sqrt(3)/3 = A016650 - A093602. - Michel Marcus, Jul 03 2014
Equals 2*A294514. - Hugo Pfoertner, Apr 24 2025

A294834 Numerators of the partial sums of the reciprocals of the positive tetradecagonal numbers (k + 1)*(6*k + 1) = A051866(k+1).

Original entry on oeis.org

1, 15, 599, 23035, 2900123, 30112021, 1117973277, 96393597197, 6084978910411, 67042215785861, 4094947551504521, 274661892011507657, 20068897076286721961, 1586702257063428405419, 26992510145660626515763, 54017546409271099350401, 5242487768036648180534897, 180077149085745155963315797
Offset: 0

Views

Author

Wolfdieter Lang, Nov 20 2017

Keywords

Comments

The corresponding denominators are given in A294835.
For the general case V(m,r;n) = Sum_{k=0..n} 1/((k + 1)*(m*k + r)) = (1/(m - r))*Sum_{k=0..n} (m/(m*k + r) - 1/(k+1)), for r = 1, ..., m-1 and m = 2, 3, ..., and their limits see a comment in A294512. Here [m,r] = [6,1].
The limit of the series is V(6,1) = lim_{n -> oo} V(6,1;n) = (3/10)*log(3) + (2/5)*log(2) + (1/10)*Pi*sqrt(3). The value is 1.150982368094676386... given in A275792.

Examples

			The rationals V(6,1;n), n >= 0, begin: 1, 15/14, 599/546, 23035/20748, 2900123/2593500, 30112021/26799500, 1117973277/991581500, 96393597197/85276009000, 6084978910411/5372388567000, 67042215785861/59096274237000, 4094947551504521/3604872728457000, ...
V(6,1;10^6) = 1.150982200 (Maple, 10 digits) to be compared with the ten digits 1.150982368 obtained from V(6,1) given in A275792.

References

  • Max Koecher, Klassische elementare Analysis, Birkhäuser, Basel, Boston, 1987, Eulersche Reihen, pp. 189 - 193.

Links

Crossrefs

Cf. A001620, A051866, A275792, A294512, A294835.

Programs

  • Magma
    [Numerator((&+[1/((k + 1)*(6*k + 1)): k in [0..n]])): n in [0..50]]; // G. C. Greubel, Aug 30 2018
  • Mathematica
    Table[Numerator[Sum[1/((k + 1)*(6*k + 1)), {k, 0, n}]], {n, 0, 50}] (* G. C. Greubel, Aug 30 2018 *)
  • PARI
    a(n) = numerator(sum(k=0, n, 1/((k + 1)*(6*k + 1)))); \\ Michel Marcus, Nov 21 2017

Formula

a(n) = numerator(V(6,1;n)) with V(6,1;n) = Sum_{k=0..n} 1/((k + 1)*(6*k + 1)) = Sum_{k=0..n} 1/A051866(k+1) = (1/5)*Sum_{k=0..n} (1/(k + 1/6) - 1/(k + 1)) = (-Psi(1/6) + Psi(n+7/6) - (gamma + Psi(n+2)))/5 with the digamma function Psi and the Euler-Mascheroni constant gamma = -Psi(1) from A001620.
Showing 1-2 of 2 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.