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.

Previous Showing 11-14 of 14 results.

A056183 Sum of a(n) terms of 1/k^(6/7) first exceeds n.

Original entry on oeis.org

1, 2, 4, 8, 16, 31, 56, 96, 158, 253, 393, 594, 878, 1271, 1806, 2523, 3472, 4711, 6312, 8359, 10949, 14199, 18243, 23237, 29360, 36816, 45841, 56698, 69689, 85152, 103467, 125060, 150406, 180034, 214529, 254542, 300788, 354056, 415215, 485213
Offset: 0

Views

Author

Robert G. Wilson v, Aug 01 2000

Keywords

Examples

			For example, a(4) = 16 since Sum_{k=1..16} 1/k^(6/7) = 4.014698427... > 4, whereas Sum_{k=1..15} 1/k^(6/7) = 3.921823784... < 4.

Crossrefs

Cf. A019529 and A002387.

Programs

  • Mathematica
    s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(7/8), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 40} ]

A056184 Sum of a(n) terms of 1/k^(7/8) first exceeds n.

Original entry on oeis.org

1, 2, 4, 8, 17, 34, 63, 112, 192, 317, 508, 794, 1212, 1810, 2653, 3821, 5417, 7567, 10431, 14201, 19113, 25453, 33561, 43845, 56787, 72957, 93020, 117754, 148061, 184987, 229732, 283675, 348391, 425675, 517564, 626361, 754667, 905407
Offset: 0

Views

Author

Robert G. Wilson v, Aug 01 2000

Keywords

Crossrefs

Cf. A019529 and A002387.

Programs

  • Mathematica
    s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(7/8), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 39} ]

A056185 Sum of a(n) terms of 1/k^(8/9) first exceeds n.

Original entry on oeis.org

1, 2, 4, 9, 18, 37, 70, 128, 225, 383, 633, 1019, 1601, 2461, 3711, 5494, 8003, 11484, 16249, 22698, 31328, 42762, 57764, 77274, 102436, 134634, 175532, 227123, 291776, 372300, 472004
Offset: 0

Views

Author

Robert G. Wilson v, Aug 01 2000

Keywords

Crossrefs

Cf. A019529 and A002387.

Programs

  • Mathematica
    s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(8/9), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 30} ]

A056186 Sum of a(n) terms of 1/k^(9/10) first exceeds n.

Original entry on oeis.org

1, 2, 4, 9, 19, 39, 77, 143, 259, 452, 767, 1267, 2043, 3223, 4986, 7573, 11311, 16634, 24114, 34497, 48744, 68083, 94072, 128672, 174333, 234091, 311692, 411723, 539773, 702614, 908407, 1166943, 1489914
Offset: 0

Views

Author

Robert G. Wilson v, Aug 01 2000

Keywords

Crossrefs

Cf. A019529 and A002387.

Programs

  • Mathematica
    s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(9/10), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 32} ]
Previous Showing 11-14 of 14 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.