|
|
A077117
|
|
Least k such that Z(k,6) <= Z(n,7) where Z(m,s) = Sum_{i>=m} 1/i^s.
|
|
0
|
|
|
2, 2, 3, 4, 6, 7, 9, 11, 13, 15, 16, 18, 20, 23, 25, 27, 29, 31, 33, 35, 38, 40, 42, 45, 47, 49, 52, 54, 56, 59, 61, 64, 66, 69, 71, 74, 76, 79, 81, 84, 86, 89, 92, 94, 97, 100, 102, 105, 108, 110, 113, 116, 119, 121, 124, 127, 130, 132, 135, 138, 141, 144, 146, 149
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
PROG
|
(PARI) u=6; v=7; a(n)=if(n<0, 0, k=1; while((zeta(u)-sum(k=1, k-1, 1/k^u))>(zeta(v)-sum(i=1, n-1, 1/i^v)), k++); k)
|
|
CROSSREFS
|
Cf. A051890 for least k such that Z(k,2) <= Z(n,3).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|