login
A144168
IntegerPart[PolyGamma[n,2]].
1
0, 0, 0, 0, 2, -6, 20, -80, 360, -1793, 9822, -58779, 381393, -2666630, 19984218, -159791481, 1357763223, -12217090921, 116044807396, -1160331221321, 12182660845677, -134003283550602, 1540991901127780, -18491536121716991
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
Sequence in context: A354737 A357502 A187009 * A177482 A300011 A242154
KEYWORD
sign
AUTHOR
STATUS
approved