%I A056183
%S A056183 1,2,4,8,16,31,56,96,158,253,393,594,878,1271,1806,2523,3472,4711,6312,
%T A056183 8359,10949,14199,18243,23237,29360,36816,45841,56698,69689,85152,
%U A056183 103467,125060,150406,180034,214529,254542,300788,354056,415215,485213
%N A056183 Sum of a(n) terms of 1/k^(6/7) first exceeds n.
%e A056183 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.
%t A056183 s = 0; k = 1; Do[ While[ s <= n, s = s + N[ 1/k^(7/8), 24 ]; k++ ]; Print[ 
               k - 1 ], {n, 1, 40} ]
%Y A056183 Cf. A019529 and A002387.
%Y A056183 Sequence in context: A054517 A054016 A051039 this_sequence A000127 A133552 
               A000128
%Y A056183 Adjacent sequences: A056180 A056181 A056182 this_sequence A056184 A056185 
               A056186
%K A056183 nonn
%O A056183 0,2
%A A056183 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 01 2000