OFFSET
1,2
COMMENTS
Also equals (-1)^(n+1)*floor(n!*zeta(n+1)). [Jean-François Alcover, Feb 28 2013]
MATHEMATICA
lst={}; Do[AppendTo[lst, IntegerPart[PolyGamma[n, 1]]], {n, 4^3}]; lst
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 12 2008
STATUS
approved