%I #2 Mar 30 2012 17:30:25

%S 1,2,4,8,17,34,63,112,192,317,508,794,1212,1810,2653,3821,5417,7567,

%T 10431,14201,19113,25453,33561,43845,56787,72957,93020,117754,148061,

%U 184987,229732,283675,348391,425675,517564,626361,754667,905407

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

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

%Y Cf. A019529 and A002387.

%K nonn

%O 0,2

%A _Robert G. Wilson v_, Aug 01 2000