kill(all)$

van=facebook.com/LearningCalculus$

S1(n):=sum(1/sum(1/sum(k,k,1,l),l,1,m),m,1,n);
H(n):=sum(1/i,i,1,n);
S2(n):=(n+H(n))/2;
'S2(x)=S2(x);

create_list(S1(i),i,1,5);
create_list(H(i),i,1,5);
create_list(S2(i),i,1,5);

S2(2017);

is(S2(2017)>1011);

float(bfloat(S2(2017)));