function ab=sr_Enufinmod_nuint(dig,N,nu,c)
%SR_ENUFINMOD_NUINT Recurrence coefficients for a subrange 
%exponential integral weight function on [0,c] when nu is
%an integer.
%   SR_ENUFINMOD_NUINT(DIG,N,NU,C) generates the first N
%   recurrence coefficients in DIG-digit arithmetic for the
%   weight function E_NU(X) on [0,C] when NU is an integer
%   and the modified moments are relative to the Legendre
%   polynomial on [0,c].

digits(dig); 
s2=vpa(2); const=vpa(c)/s2;
mmom=smmom_Enufin_nuint(dig,N,nu,c);
abmm0=sr_jacobi(dig,2*N-1,0,0);
abmm=[const*(abmm0(:,1)+ones(2*N-1,1)) (const^2)*abmm0(:,2)];
ab=schebyshev(dig,N,mmom',abmm);
