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.

A103549 Decimal expansion of solution to x*3^x = 1.

Original entry on oeis.org

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

Views

Author

Zak Seidov, Mar 23 2005

Keywords

Examples

			0.54780862165409744645057540815102185034598933770148...

Links

Crossrefs

Cf. A104748, A103550, A103551, A103552, A103553, A103554, A103555, A103556, A103559, A103560.

Programs

  • Maple
    x:= LambertW(log(3))/log(3):
s:= convert(evalf(x, 140), string):
seq(parse(s[n+2]), n=0..119);  # Alois P. Heinz, Dec 03 2014
  • Mathematica
    RealDigits[x/.FindRoot[x 3^x==1,{x,.5},WorkingPrecision->120]][[1]] (* Harvey P. Dale, May 27 2012 *)
RealDigits[ProductLog[Log[3]]/Log[3], 10, 105][[1]] (* Amiram Eldar, May 04 2023 *)

Formula

x*3^x = 1.
x = (1/3)^(1/3)^(1/3)^... = LambertW(log(3))/log(3). - Alois P. Heinz, Dec 03 2014

Extensions

More terms from Harvey P. Dale, May 27 2012

A103552 Decimal expansion of solution to x*7^x = 1.

Original entry on oeis.org

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

Views

Author

Zak Seidov, Mar 23 2005

Keywords

Examples

			0.43169412649587801042616709891635168194590181264642...

Links

Crossrefs

Cf. A104748, A103549, A103550, A103551, A103553, A103554, A103555, A103556, A103559, A103560.

Programs

  • Maple
    x:= LambertW(log(7))/log(7):
s:= convert(evalf(x, 140), string):
seq(parse(s[n+2]), n=0..119);  # Alois P. Heinz, Dec 03 2014
  • Mathematica
    RealDigits[ProductLog[Log[7]]/Log[7], 10, 105][[1]] (* Amiram Eldar, May 04 2023 *)

Formula

x*7^x = 1.
x = (1/7)^(1/7)^(1/7)^... = LambertW(log(7))/log(7). - Alois P. Heinz, Dec 03 2014

Extensions

More terms from Alois P. Heinz, Dec 03 2014

A103551 Decimal expansion of solution to x*6^x = 1.

Original entry on oeis.org

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

Views

Author

Zak Seidov, Mar 23 2005

Keywords

Examples

			0.44806307664630884511371441842857154667562033005414...

Crossrefs

Cf. A104748, A103549, A103550, A103552, A103553, A103554, A103555, A103556, A103559, A103560.

Programs

  • Maple
    x:= LambertW(log(6))/log(6):
s:= convert(evalf(x, 140), string):
seq(parse(s[n+2]), n=0..120);  # Alois P. Heinz, Dec 03 2014
  • Mathematica
    RealDigits[ProductLog[Log[6]]/Log[6], 10, 105][[1]] (* Amiram Eldar, May 04 2023 *)

Formula

x*6^x = 1.
x = (1/6)^(1/6)^(1/6)^... = LambertW(log(6))/log(6). - Alois P. Heinz, Dec 03 2014

Extensions

More terms from Alois P. Heinz, Dec 03 2014

A103553 Decimal expansion of solution to x*8^x = 1.

Original entry on oeis.org

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

Views

Author

Zak Seidov, Mar 23 2005

Keywords

Examples

			0.41868621979724841267472248744737790370444567336321...

Crossrefs

Cf. A104748, A103549, A103550, A103551, A103552, A103554, A103555, A103556, A103559, A103560.

Programs

  • Mathematica
    RealDigits[x/.FindRoot[x 8^x==1, {x,.4}, WorkingPrecision->100]][[1]] (* Harvey P. Dale, Jan 04 2011 *)
RealDigits[ProductLog[Log[8]]/Log[8], 10, 105][[1]] (* Amiram Eldar, May 04 2023 *)

Formula

x*8^x = 1.
x = (1/8)^(1/8)^(1/8)^... = LambertW(log(8))/log(8). - Alois P. Heinz, Oct 25 2016

Extensions

More terms from Harvey P. Dale, Jan 04 2011

A103554 Decimal expansion of solution to x*9^x = 1.

Original entry on oeis.org

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

Views

Author

Zak Seidov, Mar 23 2005

Keywords

Examples

			0.40800440537438100797780053144009901215045141690760...

Crossrefs

Cf. A104748, A103549, A103550, A103551, A103552, A103553, A103555, A103556, A103559, A103560.

Programs

  • Maple
    x:= LambertW(log(9))/log(9):
s:= convert(evalf(x, 140), string):
seq(parse(s[n+2]), n=0..121);  # Alois P. Heinz, Dec 03 2014
  • Mathematica
    RealDigits[ProductLog[Log[9]]/Log[9], 10, 105][[1]] (* Amiram Eldar, May 04 2023 *)

Formula

x*9^x = 1.
x = (1/9)^(1/9)^(1/9)^... = LambertW(log(9))/log(9). - Alois P. Heinz, Dec 03 2014

Extensions

More terms from Alois P. Heinz, Dec 03 2014
Showing 1-5 of 5 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.