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

A106626 Count value of k in A104758.

Original entry on oeis.org

4, 5, 5, 4, 4, 7, 7, 5, 5, 6, 6, 10, 8, 6, 7, 7, 7, 7, 7, 13, 10, 8, 8, 8, 8, 9, 8, 9, 9, 16, 11, 9, 9, 10, 10, 9, 10, 10, 10, 11, 10, 19, 13, 10, 11, 11, 11, 12, 11, 11, 12, 11, 12, 12, 12, 22, 14, 12, 12, 13, 12, 13, 12, 13, 13, 13, 13, 13, 13, 14, 13, 25, 16, 13, 14, 14, 14, 14, 14, 14
Offset: 1

Views

Author

Keywords

Comments

A104758: the number of cubes m = k^3 such that n <= m <= (n+1)^2.

Crossrefs

Cf. A104758.

Programs

  • Mathematica
    f[n_] := Floor[(n + 1)^(2/3)] - Floor[n^(1/3)] + If[ IntegerQ[n^(1/3)], 1, 0]; t = Table[ f[n], {n, 0, 867}]; Count[t, # ] & /@ Range[81]

A103561 Decimal expansion of solution to x^(13^x) = 13.

Original entry on oeis.org

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

Views

Author

Zak Seidov, Mar 23 2005

Keywords

Examples

			x = 1.145506428410874570183107352890549124282333449076566322759300026...
		

Crossrefs

Programs

Extensions

More terms from Robert G. Wilson v, Mar 26 2005

A104757 Decimal expansion of solution to x^(9^x)=9.

Original entry on oeis.org

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

Views

Author

Zak Seidov, Mar 23 2005

Keywords

Examples

			x=1.179067994130546711326627268870672714247363863698857908913601448...
		

Crossrefs

Programs

  • Mathematica
    RealDigits[ FindRoot[x^(9^x) == 9, {x, 1}, WorkingPrecision -> 2^7] [[1, 2]]][[1]] (* Robert G. Wilson v, Mar 26 2005 *)

Extensions

More terms from Robert G. Wilson v, Mar 26 2005
Showing 1-3 of 3 results.