A056180 Sum of a(n) terms of 1/k^(4/5) first exceeds n.

1, 2, 4, 7, 14, 24, 40, 63, 95, 140, 201, 281, 384, 516, 682, 888, 1141, 1449, 1820, 2263, 2789, 3408, 4133, 4976, 5951, 7074, 8360, 9826, 11492, 13376, 15499, 17884, 20554, 23533, 26849, 30528, 34600, 39095, 44045, 49485, 55450, 61976, 69103

Offset

0,2

Links

Table of n, a(n) for n=0..42.

Mathematica

s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(4/5), 24 ]; k++ ]; Print[ k - 1 ], {n, 1, 50} ]
Join[{1}, Table[Position[Accumulate[Table[N[1/k^(4/5)], {k, 100000}]], _?(#>n&), {1}, 1], {n, 50}]//Flatten] (* Harvey P. Dale, Sep 23 2016 *)

Crossrefs

Cf. A019529 and A002387.

Sequence in context: A285903 A048248 A370636 * A000076 A217730 A360055

Adjacent sequences: A056177 A056178 A056179 * A056181 A056182 A056183

Keyword

nonn

Author

Robert G. Wilson v, Aug 01 2000

Status

approved