OFFSET
0,5
MATHEMATICA
lst={}; Do[AppendTo[lst, IntegerPart[PolyGamma[n, 2]]], {n, 4^3}]; lst
IntegerPart[PolyGamma[Range[0, 30], 2]] (* Harvey P. Dale, Sep 19 2023 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 12 2008
STATUS
approved