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-5 of 5 results.

A118227 Decimal expansion of Cahen's constant.

Original entry on oeis.org

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

Views

Author

Eric W. Weisstein, Apr 16 2006

Keywords

Comments

Cahen proved that his constant is irrational. Davison and Shallit proved that it is transcendental and computed its simple continued fraction expansion A006280. - Jonathan Sondow, Aug 17 2014
Named after the French mathematician Eugène Cahen (1865 - 1941). - Amiram Eldar, Oct 29 2020

Examples

			0.6434105462883380261...
		

References

  • Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, 2003, Section 6.7, p. 436.

Crossrefs

Programs

  • Mathematica
    a[0] = 2; a[n_] := a[n] = a[n-1]^2 - a[n-1]+1; kmax = 1; FixedPoint[ RealDigits[ Sum[(-1)^k/(a[k]-1), {k, 0, kmax += 10}], 10, 105][[1]]&, kmax] (* Jean-François Alcover, Jul 28 2011, updated Jun 19 2014 *)
    Most@First@RealDigits@N[x=1; 1+Sum[x=x(1+x); (-1)^k/x, {k, 1, 9}], 106] (* Oliver Seipel, Aug 25 2024, after Charles R Greathouse IV *)
    Most@First@RealDigits@N[x=1; 1/2+Sum[x=x(1+x)(1+x+x^2); 1/(x+1), {k, 1, 4}], 106] (* Oliver Seipel, Aug 25 2024 *)
  • PARI
    C=1;1+suminf(k=1,C+=C^2; (-1)^k/C) \\ Charles R Greathouse IV, Jul 14 2020

Formula

Equals Sum_{k >= 0} (-1)^k/(A000058(k)-1).
Equals Sum_{n>=0} 1/A000058(2*n) = 1 - Sum_{n>=0} 1/A000058(2*n+1). - Amiram Eldar, Oct 29 2020
Equals 1 + (1/2) * Sum_{n>=0} (-1)^(n+1)/A129871(n). - Bernard Schott, Apr 06 2021

A006280 Partial quotients in continued fraction expansion of Cahen's constant.

Original entry on oeis.org

0, 1, 1, 1, 4, 9, 196, 16641, 639988804, 177227652025317609, 72589906463585427805281295977816196, 2280022876287160141646375873338796324543839666085098409289740769448641
Offset: 0

Views

Author

Keywords

Comments

Shifted squares of denominators of convergents to Cahen's constant: a(n) = A006279(n-2)^2 for n > 1. - Jonathan Sondow, Aug 20 2014

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Programs

  • Mathematica
    b[n_] := b[n] = If[n < 2, 1, b[n-2]^2*b[n-1] + b[n-2]];
    a[n_] := If[n == 0, 0, b[n-2]^2];
    Table[a[n], {n, 0, 10}] (* Jean-François Alcover, Sep 23 2022, after Jonathan Sondow *)

A006281 Partial quotients in continued fraction expansion of 2C-1, where C is Cahen's constant.

Original entry on oeis.org

0, 3, 2, 18, 98, 33282, 319994402, 354455304050635218, 36294953231792713902640647988908098
Offset: 0

Views

Author

Keywords

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Programs

  • Mathematica
    s[0] = 2; s[n_] := s[n] = s[n - 1]^2 - s[n-1] + 1; h[0] = 1; h[n_] := h[n] = (s[n] - 1)/(2*h[n-1]); a[0] = 0; a[1] = 3; a[n_] := 2*h[n-1]^2; Array[a, 9, 0] (* Amiram Eldar, Mar 19 2024 *)

A123180 Even positions of Sylvester's sequence A000058; the denominators of the (greedy) Egyptian fraction expansion of Cahen's constant.

Original entry on oeis.org

2, 7, 1807, 10650056950807, 12864938683278671740537145998360961546653259485195807
Offset: 0

Views

Author

David Eppstein, Oct 03 2006

Keywords

Crossrefs

Programs

  • Mathematica
    f[n_] := n*(n-1)*(n*(n-1)+1)+1; a[0] = 2; a[n_] := a[n] = f[a[n-1]]; Array[a, 5, 0] (* Amiram Eldar, Mar 19 2024 *)
    1+NestList[#(#+1)(#^2+#+1) &, 1, 4] (* Oliver Seipel, Aug 25 2024 *)
  • PARI
    a(n)=if(n, my(k=a(n-1));k*=k-1; k*(k+1)+1, 2) \\ Charles R Greathouse IV, Dec 12 2013

Formula

a(n) = a(n-1)*(a(n-1)-1)*(a(n-1)*(a(n-1)-1)+1)+1.
a(n) is approximately k^4^n with k = 1.5979102180318731783... (A077125). - Charles R Greathouse IV, Dec 12 2013
Sum_{n>=0} 1/a(n) = A118227. - Amiram Eldar, Mar 19 2024

Extensions

a(4) from Charles R Greathouse IV, Dec 12 2013

A242724 Decimal expansion of a constant associated with self-generating continued fractions and Cahen's constant.

Original entry on oeis.org

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

Views

Author

Jean-François Alcover, May 21 2014

Keywords

Comments

This constant is known to be transcendental.
Called the "Davison-Shallit constant" by Finch (2003) and Sondow (2021). - Amiram Eldar, Mar 19 2024

Examples

			0.62946502045518677183129422910723212269353...
		

References

  • Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 6.7, p. 435.

Crossrefs

Programs

  • Mathematica
    digits = 100; Clear[q, s]; q[n_] := q[n] = q[n - 2]*(q[n-1] + 1); q[0] = q[1] = 1; s[k_] := s[k] = Sum[(-1)^j/(q[j]*q[j+1]), {j, 0, k}] // N[#, digits+5]&; s[dk = 5]; s[k = 2*dk]; While[RealDigits[s[k], 10, digits] != RealDigits[s[k - dk], 10, digits], Print["k = ", k]; k = k + dk]; RealDigits[s[k], 10, digits] // First

Formula

Equals Sum_{k>=0} (-1)^k/(A006277(k)*A006277(k+1)). - Amiram Eldar, Mar 19 2024
Showing 1-5 of 5 results.