OFFSET
1,2
FORMULA
Sum_{i > a(n)+1} 1/i^3 < Sum_{i > n} 1/i^4 < Sum_{i > a(n)} 1/i^3.
MATHEMATICA
s1[a_] := Sum[1/i^3, {i, a + 1, Infinity}]; s2[n_] := Sum[1/i^4, {i, n + 1, Infinity}]; a[n_] := Module[{a = 1}, While[Not[s1[a + 1] < s2[n] < s1[a]], a++ ]; a]; Table[a[n], {n, 1, 20}] (* Jean-Francois Sadoc (sadoc(AT)lps.u-psud.fr), Feb 22 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Dec 09 2001
EXTENSIONS
More terms from Sean A. Irvine, Sep 24 2023
STATUS
approved